include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected
!! for allocatable arrays in derived types
!! (feature of TR 15581: ALLOCATABLE attribute)
      module array_mod
      use dt_mod
      type array
      type(dt), allocatable :: value(:)
      end type
      end module
      program uin
      use array_mod
      type(array) :: x
      allocate(x%value(10))
      call sub1dt(x%value)
      end