diff options
Diffstat (limited to 'test_ssl.f90')
-rw-r--r-- | test_ssl.f90 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test_ssl.f90 b/test_ssl.f90 index 0e169c1..04386d4 100644 --- a/test_ssl.f90 +++ b/test_ssl.f90 @@ -1,6 +1,7 @@ program test_ssl use jessl use network +use wsa_network, only: windows_network_startup => startup implicit none type(sockaddr_in), target::sa @@ -8,10 +9,12 @@ implicit none type(simple_hostent)::hent + call windows_network_startup() + hent = gethostbyname("google.com") if(allocated(hent%h_name)) then - !Print *, "host: ", hent%h_name - !Print *, "addr: ", hent%h_addr4 + Print *, "host: ", hent%h_name + Print *, "addr: ", hent%h_addr4 else Print *, "Failure" stop |