Sign in
gnu
/
gcc
/
4a0fed0c0c7241562eaa5f1a4c916b689429ad86
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
dependency_13.f90
blob: 488aed972c64bd78e7e8e16583059e20aed1c506 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fdump-tree-original"
}
integer
::
i
(
5
)
real
(
4
)
::
x
(
5
)
equivalence
(
x
,
i
)
i
=
(
/ 1, 0, 3, 5, 0 /
)
where
(
i
(
1
:
4
)
.
ne
.
0
)
x
(
2
:
5
)
=
-
42.
end
where
end
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"temp"
3
"original"
}
}