program prog
      save
      write(6, *) num
      end