program prog
      do 10 i=1,2
   10   write(6, *) i
      goto 10
      end