1! { dg-do compile }
2! { dg-options "-fno-automatic -finit-local-zero" }
3!
4! PR fortran/51800
5!
6! Contributed by Mario Baumann
7!
8      SUBROUTINE FOO( N, A )
9      IMPLICIT NONE
10      INTEGER :: N
11      INTEGER :: A(1:N)
12      INTEGER :: J
13      INTEGER :: DUMMY(1:N)
14      DO J=1,N
15         DUMMY(J) = 0
16         A(J) = DUMMY(J)
17      END DO
18      END SUBROUTINE FOO
19