23 lines
393 B
Fortran
23 lines
393 B
Fortran
! 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
|