Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
where_14.f90
blob: 640bdf574a68335fa306ee2dff34b36d16de9dc6 [
file
] [
log
] [
blame
]
!
Check
whether an empty ELSEWHERE works
program where_14
integer
::
a
(
5
)
integer
::
b
(
5
)
a
=
(
/1, 2, 3, 4, 5/
)
b
=
(
/0, 0, 0, 0, 0/
)
where
(
a
.
eq
.
1
)
b
=
3
elsewhere
endwhere
if
(
any
(
b
.
ne
.
(
/3, 0, 0, 0, 0/
)))
&
call abort
end
program