Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-4.6.0
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
forall_8.f90
blob: b06f3028a0f5a3153db88e38aef9984e452041c3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fdump-tree-original"
}
integer a
(
100
)
forall
(
i
=
1
:
100
,.
true
.)
a
(
i
)
=
0
end
forall
end
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"temp"
0
"original"
}
}
!
{
dg
-
final
{
cleanup
-
tree
-
dump
"original"
}
}