Subversion Repositories openrisc

! { dg-do compile }

!

! PR 44434: [OOP] ICE in in gfc_add_component_ref

!

! Contributed by Salvatore Filippone 

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" } }