gcc/testsuite/gfortran.dg/typebound_generic_7.f03

   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
   7 module foo_mod
   8   type foo
   9   contains
  10     procedure :: doit
  11     generic :: do => doit
  12   end type
  13 contains
  14   subroutine  doit(a)
  15     class(foo) :: a
  16   end subroutine
  17 end module
  18
  19 program testd15
  20 contains
  21   subroutine dodo(x)
  22     use foo_mod
  23     class(foo) :: x
  24     call x%do()
  25   end subroutine
  26 end