1! { dg-do compile }
2! Test constraints on ALLOCATABLE functions
3program alloc_fun
4
5contains
6
7    elemental function foo (n)
8        integer, intent(in) :: n
9        integer, allocatable :: foo(:) ! { dg-error "ALLOCATABLE .* ELEMENTAL" }
10    end function foo
11
12end program alloc_fun
13