| ! { dg-do link } | |
| ! { dg-require-effective-target lto } | |
| ! { dg-options "-O2 -flto" } | |
| MODULE util | |
| INTERFACE sort | |
| MODULE PROCEDURE sort_cv | |
| END INTERFACE | |
| CONTAINS | |
| SUBROUTINE sort_cv ( arr, n, index ) | |
| CHARACTER(LEN=*), INTENT(INOUT) :: arr(1:n) | |
| INTEGER, INTENT(OUT) :: INDEX(1:n) | |
| INTEGER, ALLOCATABLE, DIMENSION(:, :) :: entries | |
| ALLOCATE(entries(max_length,SIZE(arr))) | |
| END SUBROUTINE sort_cv | |
| END MODULE util | |
| USE util | |
| INTEGER, ALLOCATABLE :: ind(:) | |
| character(len=3), ALLOCATABLE :: d(:) | |
| CALL sort(d,N,ind) | |
| END |