include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for automatic arrays
      program uin
      call sub2(10)
      end
      subroutine sub2(n)
      integer n
      integer x(n)
      call sub1(x)
      end