      module modx
      integer x,y
      end module modx
 
      program uin3
      use modx
      call sub
      end
 
      subroutine sub
      use modx
      x = y
      print * , x
      end
