| ! { dg-do compile } | |
| ! | |
| ! PR 54387: [F03] Wrongly accepts non-proc result variable on the RHS of a proc-pointer assignment | |
| ! | |
| ! Contributed by James Van Buskirk | |
| integer function foo() | |
| procedure(), pointer :: i | |
| i => foo ! { dg-error "is invalid as proc-target in procedure pointer assignment" } | |
| end | |
| recursive function bar() result (res) | |
| integer :: res | |
| procedure(), pointer :: j | |
| j => bar | |
| end |