aboutsummaryrefslogtreecommitdiff
path: root/test_ssl.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-04-30 17:58:35 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-04-30 17:58:35 -0400
commit690395a50cd55401a9cfee598638bef482d164bd (patch)
tree03528ccef371ee6a268715ae12de009d7032dce0 /test_ssl.f90
parent537ff39898992c3915bcf01e3840becc6750520f (diff)
downloadLR-87-690395a50cd55401a9cfee598638bef482d164bd.zip
LR-87-690395a50cd55401a9cfee598638bef482d164bd.tar.gz
Fixed initialization of windows networking. Fixed some overruns in hostent processing.
Diffstat (limited to 'test_ssl.f90')
-rw-r--r--test_ssl.f907
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