aboutsummaryrefslogtreecommitdiff
path: root/request.f90
diff options
context:
space:
mode:
Diffstat (limited to 'request.f90')
-rw-r--r--request.f906
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