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