2 ! Tests patch for problem that was found whilst investigating
3 ! PR24158. The call to foo would cause an ICE because the
4 ! actual argument was of a type that was not defined. The USE
5 ! GLOBAL was commented out, following the fix for PR29364.
7 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
11 type(t3), pointer :: d ! { dg-error "has not been declared" }
17 implicit type (t3) (z)
19 call foo (zin) ! { dg-error "defined|Type/rank" }
35 ! { dg-final { cleanup-modules "global" } }