Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr88116_2.f90
blob: cb0684fd49afb17fa366b1b83009d6a5c4a76d37 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program p
real
::
a
(
2
)
=
[
real
::
1
,
[
integer
::
(
real
(
k
),
k
=
2
,
1
),
2
]]
real
::
b
(
1
)
=
[
real
::
[
integer
::
(
dble
(
k
),
k
=
1
,
0
),
2
]]
if
(
a
(
1
)
/=
1.
.
or
.
a
(
2
)
/=
2.
.
or
.
b
(
1
)
/=
2.
)
stop
1
end