From b470a0c853d060d059e4890f6cbe6ef672edb6ea Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 13 May 2020 06:44:16 -0400 Subject: Switched to a non-deprecated call for TLS initialization --- jessl.f90 | 6 +++--- request.f90 | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/jessl.f90 b/jessl.f90 index 0ee890e..bd9d1fe 100644 --- a/jessl.f90 +++ b/jessl.f90 @@ -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 -- cgit v1.2.3