aboutsummaryrefslogtreecommitdiff
path: root/request.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 08:34:27 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 08:34:27 -0400
commitaa6707d3e3b6e449eb6b2299091cfaefe52ae849 (patch)
tree13bc501ded6690cb4cbd1983a1c462f54efce096 /request.f90
parentb063cac571202757ec25f2c6e2a772684b88d4ae (diff)
downloadLR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.zip
LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.tar.gz
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.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