Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr71526.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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