diff options
| -rw-r--r-- | jessl.f90 | 6 | ||||
| -rw-r--r-- | request.f90 | 4 |
2 files changed, 5 insertions, 5 deletions
@@ -36,10 +36,10 @@ implicit none subroutine load_error_strings() bind(c, name="SSL_load_error_strings") end subroutine load_error_strings - function tls_v1_3_client_method() bind(c, name="TLSv1_2_client_method") + function tls_client_method() bind(c, name="TLS_client_method") use iso_c_binding - type(c_ptr)::tls_v1_3_client_method - end function tls_v1_3_client_method + type(c_ptr)::tls_client_method + end function tls_client_method function ctx_new(meth) bind(c, name="SSL_CTX_new") use iso_c_binding diff --git a/request.f90 b/request.f90 index fd6f016..7308a9e 100644 --- a/request.f90 +++ b/request.f90 @@ -113,7 +113,7 @@ contains end if ! Set up ssl now - ssl_method = tls_v1_3_client_method() + ssl_method = tls_client_method() conn%ssl_ctx = ctx_new(ssl_method) conn%ssl = ssl_new(conn%ssl_ctx) if((.not. c_associated(conn%ssl)) .or. (set_fd(conn%ssl, conn%socket) /= 1)) then @@ -265,4 +265,4 @@ contains end function retrieve_characters -end module request
\ No newline at end of file +end module request |