diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 08:34:27 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 08:34:27 -0400 |
| commit | aa6707d3e3b6e449eb6b2299091cfaefe52ae849 (patch) | |
| tree | 13bc501ded6690cb4cbd1983a1c462f54efce096 /request.f90 | |
| parent | b063cac571202757ec25f2c6e2a772684b88d4ae (diff) | |
| download | LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.tar.gz LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.zip | |
Fixed silly Fortran mistakes regarding functions returning allocated strings. Added an unused history system. Fixed URL handling.
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 |