do  var i = 1, 10
      write(6,*) ' what is happening?!'
10    continue
      stop
      end