File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -88,7 +88,7 @@ contains
88
88
if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
89
89
.or. k < l .or. k > r & !i.e. if k is not in the interval [l; r]
90
90
) then
91
- error stop "select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
91
+ error stop "select must have 1 <= left <= k <= right <= size(a)";
92
92
end if
93
93
94
94
searchk: do
@@ -205,7 +205,7 @@ contains
205
205
if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
206
206
.or. k < l .or. k > r & !i.e. if k is not in the interval [l; r]
207
207
) then
208
- error stop "arg_select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
208
+ error stop "arg_select must have 1 <= left <= k <= right <= size(a)";
209
209
end if
210
210
211
211
searchk: do
You can’t perform that action at this time.
0 commit comments