Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-4.6.0
/
.
/
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"
}
}