diff options
Diffstat (limited to 'main.F90')
-rw-r--r-- | main.F90 | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 |