This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/54832] [4.8 Regression] [OOP] Type-bound operator not picked up with RESULT variable
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Sat, 06 Oct 2012 11:17:46 +0000
- Subject: [Bug fortran/54832] [4.8 Regression] [OOP] Type-bound operator not picked up with RESULT variable
- Auto-submitted: auto-generated
- References: <bug-54832-4@http.gcc.gnu.org/bugzilla/>
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)
{