From 690395a50cd55401a9cfee598638bef482d164bd Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 30 Apr 2020 17:58:35 -0400
Subject: Fixed initialization of windows networking.  Fixed some overruns in
 hostent processing.

---
 test_ssl.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'test_ssl.f90')

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
-- 
cgit v1.2.3