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" }