include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for pointer arrays
      program uin
      real, pointer, dimension(:) :: x
      allocate(x(10))
      call sub1fp(x)
      deallocate(x)
      end