program prog
      parameter(num=0)
      common /com/ num
      end