diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/save_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/save_2.f90 | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/save_2.f90 b/gcc/testsuite/gfortran.dg/save_2.f90 new file mode 100644 index 000000000..87ef8ab25 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/save_2.f90 @@ -0,0 +1,22 @@ +! PR fortran/28415 +! { dg-do run } +! { dg-options "-O2 -fno-automatic" } + + program foo + integer arrlen + arrlen = 30 + call bar(arrlen) + stop + end + + subroutine bar(arg) + integer arg + double precision arr(arg) + do i = 1, arg + arr(i) = 1.0d0 + enddo + do i = 1, arg + write(*,*) i, arr(i) + enddo + return + end |