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