[Bug fortran/48810] [4.6/4.7 Regression] [OOP] TPB rejected because module procedure is private

[burnus at gcc dot gnu.org]

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

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-04-28 19:26:59 UTC ---
Works: 2010-06-03-r160231
Fails: 2010-06-07-r160349

Should be the commit:

r160335 | janus | 2010-06-06 04:04:04 +0200 (So, 06. Jun 2010) | 19 Zeilen

2010-06-05  Paul Thomas  <pault@gcc.gnu.org>
            Janus Weil  <janus@gcc.gnu.org>

        PR fortran/43945
        * resolve.c (get_declared_from_expr): Move to before
        resolve_typebound_generic_call.  Make new_ref and class_ref
        ignorable if set to NULL.
        (resolve_typebound_generic_call): Once we have resolved the
        generic call, check that the specific instance is that which
        is bound to the declared type.
        (resolve_typebound_function,resolve_typebound_subroutine): Avoid
        freeing 'class_ref->next' twice.