111
|
1 ! { dg-do link }
|
|
2 ! { dg-require-effective-target lto }
|
|
3 ! { dg-options "-O2 -flto" }
|
|
4
|
|
5 MODULE util
|
|
6 INTERFACE sort
|
|
7 MODULE PROCEDURE sort_cv
|
|
8 END INTERFACE
|
|
9 CONTAINS
|
|
10 SUBROUTINE sort_cv ( arr, n, index )
|
|
11 CHARACTER(LEN=*), INTENT(INOUT) :: arr(1:n)
|
|
12 INTEGER, INTENT(OUT) :: INDEX(1:n)
|
|
13 INTEGER, ALLOCATABLE, DIMENSION(:, :) :: entries
|
|
14 ALLOCATE(entries(max_length,SIZE(arr)))
|
|
15 END SUBROUTINE sort_cv
|
|
16 END MODULE util
|
|
17 USE util
|
|
18 INTEGER, ALLOCATABLE :: ind(:)
|
|
19 character(len=3), ALLOCATABLE :: d(:)
|
|
20 CALL sort(d,N,ind)
|
|
21 END
|