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