gcc/testsuite/gfortran.dg/pr83939.f90

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