blob: 265029b833d46db4f88b7bee3cb822146ff670f2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
! { dg-require-effective-target lto }
! { 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
|
