diff options
Diffstat (limited to 'request.f90')
-rw-r--r-- | request.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/request.f90 b/request.f90 index 8a4e4e5..e9784fd 100644 --- a/request.f90 +++ b/request.f90 @@ -142,11 +142,11 @@ contains end subroutine close_connection - function get_server_from_url(url) result(server) + subroutine get_server_from_url(url, server) implicit none character(*), intent(in)::url - character(:), allocatable::server + character(:), allocatable, intent(out)::server integer::start_server, end_server, length @@ -168,7 +168,7 @@ contains Print *, "server is: "//trim(server) end if - end function get_server_from_url + end subroutine get_server_from_url function send_string(ssl, str, trimming) result(success) use iso_c_binding |