| ! { dg-do run } | |
| ! | |
| ! PR 54285: [F03] Calling a PPC with proc-ptr result | |
| ! | |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| type :: t | |
| procedure(a), pointer, nopass :: p | |
| end type | |
| type(t) :: x | |
| procedure(iabs), pointer :: pp | |
| x%p => a | |
| pp => x%p() | |
| if (pp(-3) /= 3) call abort | |
| contains | |
| function a() result (b) | |
| procedure(iabs), pointer :: b | |
| b => iabs | |
| end function | |
| end |