Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr91552.f90
blob: bb959185cf92aede4d65d93c25114558ce84e499 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
91552
!
Code
contributed
by
Gerhard
Steinmetz
.
program p
real
::
y
(
3
),
z
(
4
)
y
=
2.0
*
[
real
::
1
,
[
2
],
3
]
z
=
2.0
*
[
real
::
1
,
[
2
,
[
4
]],
3
]
if
(
any
(
y
/=
[
2.
,
4.
,
6.
]))
stop
1
if
(
any
(
z
/=
[
2.
,
4.
,
8.
,
6.
]))
stop
2
end