aarch64: Add missing ACLE macro for NEON-SVE Bridge
[official-gcc.git] / gcc / testsuite / gfortran.dg / init_flag_8.f90
blobb3ccc03989d032c67add1f3c9cbc8bd33ba6c481
1 ! { dg-do compile }
2 ! { dg-options "-fno-automatic -finit-local-zero" }
4 ! PR fortran/51800
6 ! Contributed by Mario Baumann
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