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