Sign in
chromium
/
native_client
/
nacl-toolchain
/
cc3d67a9abb3eceb0d79d5369b40b41f67e2474b
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
forall_9.f90
blob: 12084b1674464b5abeb3fd6aa3a4d657a1e092d8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fdump-tree-original"
}
integer a
(
100
)
forall
(
i
=
1
:
100
,.
false
.)
a
(
i
)
=
0
end
forall
end
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"temp"
0
"original"
}
}
!
{
dg
-
final
{
cleanup
-
tree
-
dump
"original"
}
}