gcc/testsuite/gfortran.fortran-torture/execute/where_14.f90

   1 ! Check whether an empty ELSEWHERE works
   2 program where_14
   3    integer :: a(5)
   4    integer :: b(5)
   5
   6    a = (/1, 2, 3, 4, 5/)
   7    b = (/0, 0, 0, 0, 0/)
   8    where (a .eq. 1)
   9      b = 3
  10    elsewhere
  11    endwhere
  12    if (any (b .ne. (/3, 0, 0, 0, 0/))) &
  13      call abort
  14 end program
  15