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