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