Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_15.f90
blob: 245f91f0b5985cd4d207a91402bdf39463713b57 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -fdump-tree-original"
}
integer
::
x
(
2
,
2
)
if
(
any
(
x
(:,:)
.
ne
.
reshape
((
/ 3, 1, 4, 1 /
),
(
/ 2, 2 /
))))
STOP
1
end
!
{
dg
-
final
{
scan
-
tree
-
dump
-
times
"atmp"
0
"original"
}
}