repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2017-12-15 Markus Trippelsdorf <markus@trippelsdorf.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
init_flag_8.f90
blob
b3ccc03989d032c67add1f3c9cbc8bd33ba6c481
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