2 ! Test the patch for PR25098, where passing a variable as an
3 ! actual argument to a formal argument that is a procedure
6 ! Based on contribution by Joost VandeVondele <jv244@cam.ac.uk>
36 call s1(i
) ! { dg-error "Expected a procedure for argument" }
37 call s1(w
) ! { dg-error "not allowed as an actual argument" }
38 call s1(x
) ! explicit interface
39 call s1(y
) ! declared external
40 call s1(z
) ! { dg-error "Expected a procedure for argument" }
47 ! { dg-final { cleanup-modules "m1" } }