Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr67885.f90
blob: 07f697976bc56c3668b2a57ed5d5cc3b6fc7e559 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
67885
!
Original
code contributed
by
Gerhard
Steinmetz
!
gerhard dot steinmetz dot fortran at t
-
online dot de
program p
block
integer
,
parameter
::
a
(
2
)
=
[
1
,
2
]
integer
::
x
(
2
)
x
=
a
if
(
x
(
1
)
/=
1
)
STOP
1
end
block
end