include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for INTENT(OUT) arrays
      program uin
      integer x(10)
      x = 2
      call sub2(x)
      end
      subroutine sub2(x)
      integer, intent(out) ::  x(*)
      call sub1(x)
      end