19 lines
420 B
Fortran
19 lines
420 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 36704: Procedure pointer as function result
|
|
!
|
|
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
function f() result(r)
|
|
real, parameter :: r = 5.0 ! { dg-error "attribute conflicts" }
|
|
end function
|
|
|
|
function g() result(s)
|
|
real :: a,b,c
|
|
namelist /s/ a,b,c ! { dg-error "attribute conflicts" }
|
|
end function
|
|
|
|
function h() result(t)
|
|
type t ! { dg-error "attribute conflicts" }
|
|
end function
|