1! Check empty WHEREs work
2program where_12
3   integer :: a(5)
4
5   a = (/1, 2, 3, 4, 5/)
6   where (a .eq. 1)
7   endwhere
8end program
9
10