Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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