1! Check whether an empty ELSEWHERE works
2program 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 STOP 1
14end program
15
16