Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr93835.f08
blob: 933e249e632ef38ce9fcf08dfa9517c596a2ea51 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
!
PR fortran
/
93835
-
the following code resulted
in
an ICE
!
program p
if
(
any
(
findloc
(
shape
(
1
),
1
)
.
ne
.
0
))
stop
1
end