| ! { dg-do run } | |
| ! | |
| ! PR 36704: Procedure pointer as function result | |
| ! | |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| procedure(integer),pointer :: p | |
| p => foo() | |
| if (p(-1)/=1) call abort | |
| contains | |
| function foo() result(bar) | |
| procedure(integer),pointer :: bar | |
| bar => iabs | |
| end function | |
| end |