program prog
      common /com/ num
      write(6, *) num
      end