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
23