write (*,10)
 10   format('Hello, world!')
      stop
      end