1program emptyif
2
3  implicit none
4  integer i,K(4)
5
6  if (K(i)==0) then
7    ! do absolutely nothing
8  end if
9
10end program
11