aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--captain/web.f905
1 files changed, 4 insertions, 1 deletions
diff --git a/captain/web.f90 b/captain/web.f90
index 638e0c3..bb225ac 100644
--- a/captain/web.f90
+++ b/captain/web.f90
@@ -94,7 +94,10 @@ contains
if(associated(jobs)) then
if(associated(req%query_string)) then
- read(req%query_string, *) job_start_index
+ read(req%query_string, *, iostat=j) job_start_index
+ if(j /= 0) then
+ job_start_index = 1
+ end if
else
job_start_index = 1
end if