diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-04-30 17:58:35 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-04-30 17:58:35 -0400 |
commit | 690395a50cd55401a9cfee598638bef482d164bd (patch) | |
tree | 03528ccef371ee6a268715ae12de009d7032dce0 /test_ssl.f90 | |
parent | 537ff39898992c3915bcf01e3840becc6750520f (diff) | |
download | LR-87-690395a50cd55401a9cfee598638bef482d164bd.tar.gz LR-87-690395a50cd55401a9cfee598638bef482d164bd.zip |
Fixed initialization of windows networking. Fixed some overruns in hostent processing.
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 |