From a60a9d10ce94acc0c5bfed2a20c8bed4e91be725 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 16 Apr 2021 11:33:11 -0400
Subject: Fixed issue with connect calls that were manifested on macOS.

---
 common/request.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'common/request.f90')

diff --git a/common/request.f90 b/common/request.f90
index fe4d970..ce81ae6 100644
--- a/common/request.f90
+++ b/common/request.f90
@@ -90,7 +90,7 @@ contains
         type(c_ptr)::ssl_method
         
         conn%code = CONNECTION_NONE
-
+        
         ! Lookup host
         conn%host = gethostbyname(server)
         if((.not. allocated(conn%host%h_name)) .or. (conn%host%h_addr4 == 0)) then
@@ -106,8 +106,11 @@ contains
         else
             sa%sin_port = htons(1965)
         end if
+        
         conn%socket = socket(AF_INET, SOCK_STREAM, 0)
+        
         if(.not. connect(conn%socket, sa)) then
+            Print *, "Errno is ", ierrno()
             conn%code = CONNECTION_SOCKET_FAILURE
             return
         end if
-- 
cgit v1.2.3