open(unit=10,file='fred',status='unknown',form='unformatted')
      write(12,10)
  10  format(5h bert)
      print *,' mb019 passed'
      stop
      end