Skip to content

Commit 0312d3d

Browse files
committed
change comment following @ivan-pi
1 parent 1822ccd commit 0312d3d

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/stdlib_selection.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff 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

0 commit comments

Comments
 (0)