diff options
| author | Andrew Macleod <amacleod@redhat.com> | 2016-05-10 03:30:56 +0000 |
|---|---|---|
| committer | Andrew Macleod <amacleod@redhat.com> | 2016-05-10 03:30:56 +0000 |
| commit | 357ceb7fe26970b6c6e12f0bb2ceecab6c6a2454 (patch) | |
| tree | 48eb1f57289f4e995f069f38213ad5c8a16f0347 /gcc/testsuite/gfortran.dg/pr70937.f90 | |
| parent | 5ed230ef2005822d6402118e58a311db2a9cb0c7 (diff) | |
| parent | 8a50780e586342528692744150d08651fb07fb43 (diff) | |
update to 2016-05-09ttype-2016-05-03
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/ttype-2016-05-03@236057 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr70937.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr70937.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr70937.f90 b/gcc/testsuite/gfortran.dg/pr70937.f90 new file mode 100644 index 00000000000..3fb17bd227e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr70937.f90 @@ -0,0 +1,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 |