aboutsummaryrefslogtreecommitdiff
path: root/common/protocol.f90
diff options
context:
space:
mode:
Diffstat (limited to 'common/protocol.f90')
-rw-r--r--common/protocol.f902
1 files changed, 2 insertions, 0 deletions
diff --git a/common/protocol.f90 b/common/protocol.f90
index 46838b8..cf93b0d 100644
--- a/common/protocol.f90
+++ b/common/protocol.f90
@@ -197,6 +197,8 @@ contains
else
+ Print *, "Connection Failed with Code: ", conn%code
+
returncode = STATUS_CONNECTFAIL
end if