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

   1 ! Check whether conditional ELSEWHEREs work
   2 ! (with final unconditional ELSEWHERE)
   3 program where_10
   4    integer :: a(5)
   5    integer :: b(5)
   6
   7    a = (/1, 2, 3, 4, 5/)
   8    b = (/0, 0, 0, 0, 0/)
   9    where (a .eq. 1)
  10      b = 3
  11    elsewhere (a .eq. 2)
  12      b = 1
  13    elsewhere (a .eq. 3)
  14      b = 4
  15    elsewhere (a .eq. 4)
  16      b = 1
  17    elsewhere
  18      b = 5
  19    endwhere
  20    if (any (b .ne. (/3, 1, 4, 1, 5/))) &
  21      call abort
  22 end program
  23