program main
      common /cb/ i, j, k
      integer i, j, k
      i = 1
      j = 2
      k = 3
      call sub1
      call sub2
      end

      subroutine sub1
      common /cb/ i, j, k
      integer i, j, k
      print *,i,j,k
      return
      end