1! { dg-do compile } 2! Test the fix for PR41258, where an ICE was caused by a search 3! for a typebound procedure to resolve d%c%e 4! 5! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 6! 7 TYPE a 8 TYPE(b), DIMENSION(:), POINTER :: c ! { dg-error "type that has not been declared" } 9 END TYPE 10 TYPE(a), POINTER :: d 11 CALL X(d%c%e) ! { dg-error "before it is defined" } 12end 13