aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
Diffstat (limited to 'main.F90')
-rw-r--r--main.F903
1 files changed, 3 insertions, 0 deletions
diff --git a/main.F90 b/main.F90
index 66e6d57..7b2319d 100644
--- a/main.F90
+++ b/main.F90
@@ -177,6 +177,9 @@ contains
case (STATUS_CERTREQ)
call r%report_status("Server requesting certificate (unsupported)")
+ case (STATUS_BADRESPONSE)
+ call r%report_status("Bad response code from server")
+
end select
end subroutine update_status