include 'UIN_AUXI.f'
!! check whether using allocatable arrays as dummy arguments with 
!! INTENT(OUT) before allocation is detected
!! (feature of TR 15581: ALLOCATABLE attribute)
      module array_mod
      use dt_mod
      contains
      subroutine allocate_a(x)
      type(dt), allocatable, dimension(:), intent(out) :: x
      call sub1dt(x)
      end subroutine
      end module
      program uin
      use array_mod 
      type(dt), allocatable, dimension(:) :: x
      allocate(x(10))
      x = dt(1)
      call allocate_a(x)
      end