aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-31 10:53:18 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-31 10:53:18 -0400
commit649cca9994cb2786d18d9941f27cb412c9984e8c (patch)
tree9d20d5ce969a6c451c109c290bee113b350f7fac
parent7d9d627d6efec748fd6de2a162e2cb5a0b1685e8 (diff)
downloadGNC-649cca9994cb2786d18d9941f27cb412c9984e8c.zip
GNC-649cca9994cb2786d18d9941f27cb412c9984e8c.tar.gz
Fixed SSL initialization
-rw-r--r--jessl.f9020
1 files changed, 18 insertions, 2 deletions
diff --git a/jessl.f90 b/jessl.f90
index 5c1a174..223fd14 100644
--- a/jessl.f90
+++ b/jessl.f90
@@ -35,8 +35,12 @@ implicit none
interface
- subroutine library_init() bind(c, name="OPENSSL_init_ssl")
- end subroutine library_init
+ function init_ssl_c(flags, settings) bind(c, name="OPENSSL_init_ssl")
+ use iso_c_binding
+ integer(kind=c_int64_t), value::flags
+ type(c_ptr), value::settings
+ integer(kind=c_int)::init_ssl_c
+ end function init_ssl_c
subroutine add_ssl_algorithms() bind(c, name="SSLeay_add_ssl_algorithms")
end subroutine add_ssl_algorithms
@@ -354,5 +358,17 @@ contains
deallocate(cfilename)
end function ctx_use_private_key_file
+
+ subroutine library_init()
+ use iso_c_binding
+ implicit none
+
+ integer(kind=c_int64_t)::flags
+ integer::res
+
+ flags = 0
+ res = init_ssl_c(flags, c_null_ptr)
+
+ end subroutine library_init
end module jessl