[Patch, fortran] PR43291 - [4.5 regression] [OOP] Type mismatch in argument; passed CLASS(t1) to CLASS(t2)

[Janus Weil]

> Since the fix is somewhat more invasive, I am posting it
> here for review before committing.

Err, where exactly ?!? (Guess you missed to attach it ... ;)

Cheers,
Janus




> 2010-03-11  Paul Thomas  <pault@gcc.gnu.org>
>
>        PR fortran/43291
>        * resolve.c (resolve_compcall): Add new boolean dummy argument
>        'class_members'. Only resolve expression at end if false.
>        Remove redundant, static variable 'class_object'.
>        (check_class_members): Add extra argument to call of
>        resolve_compcall.
>        (resolve_comp_call): Renamed from resolve_class_compcall. Do
>        all the detection of class references here. Correct calls to
>        resolve_compcall for extra argument.
>        (resolve_type_bound_call): Was resolve_class_typebound_call.
>        Otherwise same as resolve_comp_call.
>        (gfc_resolve_expr): Call resolve_comp_call.
>        (resolve_code): Call resolve_type_bound_call.
>
> 2010-03-11  Paul Thomas  <pault@gcc.gnu.org>
>
>        PR fortran/43291
>        * gfortran.dg/dynamic_dispatch_7.f03: New test.
>