      do 10 i=1,10
      print *,i
 10   continue
      end
