1! Check empty WHERE and empty ELSEWHERE works
2program where_13
3   integer :: a(5)
4
5   a = (/1, 2, 3, 4, 5/)
6   where (a .eq. 2)
7   elsewhere
8   endwhere
9end program
10
11