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
      contains
      subroutine allocate_a(x)
      real, allocatable, dimension(:), intent(out) :: x
      call sub1fp(x)
      end subroutine
      end module
      program uin
      use array_mod 
      real, allocatable, dimension(:) :: x
      allocate(x(10))
      x = 1.
      call allocate_a(x)
      end