include 'UIN_AUXI.f'
!! check whether uninitialised variables are detected 
!! for allocatable arrays as dummy arguments
!! (feature of TR 15581: ALLOCATABLE attribute)
      module array_mod
      contains
      subroutine allocate_a(x)
      real, allocatable, dimension(:) :: x
      allocate(x(10))
      end subroutine
      end module
      program uin
      use array_mod 
      real, allocatable, dimension(:) :: x
      call allocate_a(x)
      call sub1fp(x)
      end