gcc/testsuite/gfortran.dg/pr70937.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target lto }
   3 ! { dg-options "-flto" }
   4   SUBROUTINE dbcsr_test_read_args(narg, args)
   5     CHARACTER(len=*), DIMENSION(:), &
   6       INTENT(out)         :: args
   7     CHARACTER(len=80)     :: line
   8     DO
   9        args(narg) = line
  10     ENDDO
  11   END SUBROUTINE dbcsr_test_read_args