3 ! PR 60507: Passing function call into procedure argument not caught
5 ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com>
8 procedure(g
), pointer, nopass
:: ppc
=> g
11 procedure(g
), pointer :: pp
=> g
15 print *, f(g()) ! { dg-error "Expected a procedure for argument" }
17 print *, f(pp()) ! { dg-error "Expected a procedure for argument" }
19 print *, f(x
%ppc()) ! { dg-error "Expected a procedure for argument" }