1! { dg-do compile } 2! 3! PR 44434: [OOP] ICE in in gfc_add_component_ref 4! 5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 6 7module foo_mod 8 type foo 9 contains 10 procedure :: doit 11 generic :: do => doit 12 end type 13contains 14 subroutine doit(a) 15 class(foo) :: a 16 end subroutine 17end module 18 19program testd15 20contains 21 subroutine dodo(x) 22 use foo_mod 23 class(foo) :: x 24 call x%do() 25 end subroutine 26end 27