block data
      common /com/ i
      data i /3/
      end
      common /com/ i
      write(6, *) i
      end