! { 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 |