mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
13 lines
305 B
Fortran
13 lines
305 B
Fortran
! { 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
|