Subversion Repositories openrisc

! { dg-do compile }
!
! PR 44434: [OOP] ICE in in gfc_add_component_ref
!
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>

module foo_mod
  type foo
  contains
    procedure :: doit
    generic :: do => doit
  end type
contains
  subroutine  doit(a) 
    class(foo) :: a
  end subroutine
end module

program testd15
contains
  subroutine dodo(x)
    use foo_mod
    class(foo) :: x
    call x%do()
  end subroutine
end 

! { dg-final { cleanup-modules "foo_mod" } }