| ! { dg-do compile } | |
| ! { dg-options "-fno-automatic -finit-local-zero" } | |
| ! | |
| ! PR fortran/51800 | |
| ! | |
| ! Contributed by Mario Baumann | |
| ! | |
| SUBROUTINE FOO( N, A ) | |
| IMPLICIT NONE | |
| INTEGER :: N | |
| INTEGER :: A(1:N) | |
| INTEGER :: J | |
| INTEGER :: DUMMY(1:N) | |
| DO J=1,N | |
| DUMMY(J) = 0 | |
| A(J) = DUMMY(J) | |
| END DO | |
| END SUBROUTINE FOO |