program prog
      common /com/ num
      save /com/
      end