Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dependency_6.f90
blob: 7cf067f712b3601a96b0d3d7c638997d57d472ea [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fdump-tree-original"
}
subroutine foo
(
a
)
integer
,
dimension
(
4
)
::
a
where
(
a
(:
4
)
.
ne
.
0
)
a
(:
4
)
=
1
endwhere
end
subroutine
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"malloc"
0
"original"
}
}