Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr71526.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +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