program write_file
      
      write(10,*) 'Hello,World!'
      write(*,*)'My message is in file fort.10 .'

      end