! { dg-do compile } ! Test constraints on ALLOCATABLE functions program alloc_fun contains elemental function foo (n) integer, intent(in) :: n integer, allocatable :: foo(:) ! { dg-error "ALLOCATABLE .* ELEMENTAL" } end function foo end program alloc_fun