Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
where_15.f90
blob: 633c4a2260c7ee155abf3a1d5fbefd116c481c32 [
file
] [
log
] [
blame
]
!
Check
whether an empty WHERE works
program where_15
integer
::
a
(
5
)
integer
::
b
(
5
)
a
=
(
/1, 2, 3, 4, 5/
)
b
=
(
/0, 0, 0, 0, 0/
)
where
(
a
.
eq
.
1
)
elsewhere
b
=
2
endwhere
if
(
any
(
b
.
ne
.
(
/0, 2, 2, 2, 2/
)))
&
STOP
1
end
program