mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
22 lines
566 B
Fortran
22 lines
566 B
Fortran
! { 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
|