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