! { 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 |