! { dg-do compile } | |
elemental function f() result(s) ! { dg-error "shall not have an ALLOCATABLE or POINTER" } | |
allocatable s | |
allocate(s) | |
s = 3.5 | |
end function | |
elemental function g() result(s) ! { dg-error "shall not have an ALLOCATABLE or POINTER" } | |
pointer s | |
allocate(s) | |
s = 3.5 | |
end function |