Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
index_3.f90
blob: 5ecbb4113a3324493ab6a971fe820aafb13e59f3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
91651
-
this
used to give an ICE
.
!
Bug
report
by
Gerhard
Steinmetz
.
program p
integer
::
z
(
2
)
z
=
index
(
'100101'
,
'10'
,
[.
false
.,.
true
.],
kind
=
4
)
if
(
z
(
1
)
/=
1
.
or
.
z
(
2
)
/=
4
)
stop
1
end