gcc/testsuite/gfortran.dg/pr71526.f90

   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