diff options
| -rw-r--r-- | jessl.f90 | 20 |
1 files changed, 18 insertions, 2 deletions
@@ -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 |