aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
Diffstat (limited to 'main.F90')
-rw-r--r--main.F909
1 files changed, 6 insertions, 3 deletions
diff --git a/main.F90 b/main.F90
index 126796b..7021195 100644
--- a/main.F90
+++ b/main.F90
@@ -114,7 +114,7 @@ implicit none
redo_layout = r%report_unsupported_protocol(trim(desired_url))
populated = .false.
loaded = .true.
- return_code = STATUS_LOCALFAIL
+ return_code = STATUS_PROTOCOLFAIL
end if
if(.not. loaded) then
@@ -123,7 +123,6 @@ implicit none
return_code = request_url(desired_url, io, return_type, bh)
populated = .not. is_failure_code(return_code)
- Print *, "return code: ", return_code
call update_status(r, desired_url, return_code)
end if
@@ -188,7 +187,11 @@ implicit none
else if(is_failure_code(return_code)) then
- call r%draw_error("Could not connect to "//desired_url)
+ ! Only explicitly show an error if it isn't a protocol failure
+ if(return_code /= STATUS_PROTOCOLFAIL) then
+ call r%draw_error("Could not connect to "//desired_url)
+ end if
+
loaded = .true.
end if