program prog
      save num
      write(6, *) num
      end