[Bug fortran/54832] [4.8 Regression] [OOP] Type-bound operator not picked up with RESULT variable

[janus at gcc dot gnu.org]

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



janus at gcc dot gnu.org changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

             Status|UNCONFIRMED                 |ASSIGNED

         AssignedTo|unassigned at gcc dot       |janus at gcc dot gnu.org

                   |gnu.org                     |

     Ever Confirmed|0                           |1



--- Comment #3 from janus at gcc dot gnu.org 2012-10-06 11:17:46 UTC ---

The problem was apparently that the 'class_ok' attribute was not propagated

properly. The following patch fixes it for me:



Index: gcc/fortran/resolve.c

===================================================================

--- gcc/fortran/resolve.c    (revision 192004)

+++ gcc/fortran/resolve.c    (working copy)

@@ -12009,6 +12009,7 @@ resolve_fl_derived0 (gfc_symbol *sym)

           c->attr.pointer = ifc->result->attr.pointer;

           c->attr.dimension = ifc->result->attr.dimension;

           c->as = gfc_copy_array_spec (ifc->result->as);

+          c->attr.class_ok = ifc->result->attr.class_ok;

         }

           else

         {   

@@ -12017,6 +12018,7 @@ resolve_fl_derived0 (gfc_symbol *sym)

           c->attr.pointer = ifc->attr.pointer;

           c->attr.dimension = ifc->attr.dimension;

           c->as = gfc_copy_array_spec (ifc->as);

+          c->attr.class_ok = ifc->attr.class_ok;

         }

           c->ts.interface = ifc;

           c->attr.function = ifc->attr.function;

@@ -12028,7 +12030,6 @@ resolve_fl_derived0 (gfc_symbol *sym)

           c->attr.recursive = ifc->attr.recursive;

           c->attr.always_explicit = ifc->attr.always_explicit;

           c->attr.ext_attr |= ifc->attr.ext_attr;

-          c->attr.class_ok = ifc->attr.class_ok;

           /* Replace symbols in array spec.  */

           if (c->as)

         {