[Bug fortran/43945] [OOP] Derived type with GENERIC: resolved to the wrong specific TBP

[janus at gcc dot gnu dot org]

------- Comment #12 from janus at gcc dot gnu dot org  2010-06-06 03:02 -------
(In reply to comment #11)
> Reduced test case for comment #4:

Even further reduced:


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


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43945