| ! 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 |