gcc/testsuite/gfortran.dg/save_2.f90

   1 ! PR fortran/28415
   2 ! { dg-do run }
   3 ! { dg-options "-O2 -fno-automatic" }
   4
   5       program foo
   6       integer arrlen
   7       arrlen = 30
   8       call bar(arrlen)
   9       stop
  10       end
  11
  12       subroutine bar(arg)
  13       integer arg
  14       double precision arr(arg)
  15       do i = 1, arg
  16          arr(i) = 1.0d0
  17       enddo
  18       do i = 1, arg
  19          write(*,*) i, arr(i)
  20       enddo
  21       return
  22       end