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