| ! { 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 "GENERIC attribute conflicts with RESULT attribute" } |
| end type t ! { dg-error "Expecting END FUNCTION statement" } |
| end function |
| |
| function i() result(t) |
| type t ! { dg-error "GENERIC attribute conflicts with RESULT attribute" } |
| end function |