blob: ab26c2a04580a773f4ba1f6bd0ec44ebc19ca988 [file] [log] [blame]
! { 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