gcc/testsuite/gfortran.dg/pr83939.f90


1
2
3
4
5
6
7
8
9
10
11
12

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