Skip to content

Commit 11dd0e1

Browse files
committed
issue_sorting: cannot reproduce an issue
1 parent 4b96cdd commit 11dd0e1

File tree

1 file changed

+12
-1
lines changed

1 file changed

+12
-1
lines changed

src/tests/sorting/test_sorting.f90

Lines changed: 12 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ program test_sorting
1414
integer(int32), parameter :: char_size = 26**4
1515
integer(int32), parameter :: string_size = 26**3
1616
integer(int32), parameter :: block_size = test_size/6
17-
integer, parameter :: repeat = 8
17+
integer, parameter :: repeat = 1
1818

1919
integer(int32) :: &
2020
blocks(0:test_size-1), &
@@ -202,6 +202,17 @@ subroutine test_int_ord_sorts( ltest )
202202
call test_int_ord_sort( rand10, "Random 10", ldummy )
203203
ltest = (ltest .and. ldummy)
204204

205+
206+
block
207+
integer(int64) :: i
208+
integer, allocatable :: d1(:)
209+
d1 = [10, 2, -3, -4, 6, -6, 7, -8, 9, 0, 1, 20]
210+
call ord_sort( d1)
211+
call verify_sort( d1, ldummy, i )
212+
ltest = (ltest .and. ldummy)
213+
end block
214+
215+
205216
end subroutine test_int_ord_sorts
206217

207218

0 commit comments

Comments
 (0)