From aa6707d3e3b6e449eb6b2299091cfaefe52ae849 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 6 May 2020 08:34:27 -0400 Subject: Fixed silly Fortran mistakes regarding functions returning allocated strings. Added an unused history system. Fixed URL handling. --- request.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'request.f90') 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 -- cgit v1.2.3