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