3 ! PR 36704: Procedure pointer as function result
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
8 real, parameter :: r
= 5.0 ! { dg-error "attribute conflicts" }
11 function g() result(s
)
13 namelist /s
/ a
,b
,c
! { dg-error "attribute conflicts" }
16 function h() result(t
)
17 type t
! { dg-error "attribute conflicts" }