1! Check whether an empty WHERE works
2program where_15
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 elsewhere
10 b = 2
11 endwhere
12 if (any (b .ne. (/0, 2, 2, 2, 2/))) &
13 STOP 1
14end program
15
16