2 ! Tests the fix for PR31630, in which the association of the argument
3 ! of 'cmp' did not work.
5 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
13 module sort_box_module
16 subroutine heapsort_box(cmp
)
24 end subroutine heapsort_box
26 end module sort_box_module
29 module boxarray_module
34 type(box
), allocatable
:: bxs(:)
38 subroutine boxarray_build_l(ba
)
41 end subroutine boxarray_build_l
43 subroutine boxarray_sort()
46 end subroutine boxarray_sort
48 end module boxarray_module
50 ! { dg-final { cleanup-modules "box_module sort_box_module boxarray_module" } }