aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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