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