diff options
Diffstat (limited to 'jessl.f90')
-rw-r--r-- | jessl.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -148,11 +148,11 @@ contains end function ssl_write - function get_cipher(ssl) + subroutine get_cipher(ssl, res) use iso_c_binding implicit none - character(:), allocatable::get_cipher + character(:), allocatable, intent(out)::res type(c_ptr)::ssl type(c_ptr)::cptr @@ -164,8 +164,8 @@ contains cptr = c_null_ptr if(.not. c_associated(cptr)) then - allocate(character(len=1)::get_cipher) - get_cipher = " " + allocate(character(len=1)::res) + res = " " else @@ -175,15 +175,15 @@ contains do while(cstring(i) /= c_null_char) i = i + 1 end do - allocate(character(len=(i-1))::get_cipher) + allocate(character(len=(i-1))::res) i = 1 do while(cstring(i) /= c_null_char) - get_cipher(i:i) = cstring(i) + res(i:i) = cstring(i) end do end if - end function get_cipher + end subroutine get_cipher end module jessl |