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
8888 if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
8989 .or. k < l .or. k > r & !i.e. if k is not in the interval [l; r]
9090 ) 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)";
9292 end if
9393
9494 searchk: do
@@ -205,7 +205,7 @@ contains
205205 if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
206206 .or. k < l .or. k > r & !i.e. if k is not in the interval [l; r]
207207 ) 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)";
209209 end if
210210
211211 searchk: do
You can’t perform that action at this time.
0 commit comments