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>
39 call s1(i) ! { dg-error "Expected a procedure for argument" }
40 call s1(w) ! { dg-error "not allowed as an actual argument" }
41 call s1(x) ! explicit interface
42 call s1(y) ! declared external
43 call s1(z) ! { dg-error "Expected a procedure for argument" }
44 call s2(x) ! { dg-error "Invalid procedure argument" }
51 ! { dg-final { cleanup-modules "m1" } }