blob: dfeaac71630c7afcd097cf0e3163ba979f267324 (
plain)
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
|