[Patch, Fortran, OOP] PR 59547: Problem with using tbp specification function in multiple class procedures

[Janus Weil]

Hi all,

here is a patch for a rejects-valid problem with type-bound
procedures, which is due to the fact that the PURE attribute is being
propagated too late. (I'm not sure if this problem could show up also
with other attributes, so for now I'm only treating PURE.)

Regtested on x86_64-unknown-linux-gnu. Ok for trunk?

Cheers,
Janus


2013-12-22  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/59547
    * class.c (add_proc_comp): Copy pure attribute.

2013-12-22  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/59547
    * gfortran.dg/typebound_proc_32.f90: New.
-------------- next part --------------
Index: gcc/fortran/class.c
===================================================================
--- gcc/fortran/class.c	(revision 206161)
+++ gcc/fortran/class.c	(working copy)
@@ -714,9 +714,11 @@ add_proc_comp (gfc_symbol *vtype, const char *name
 
   if (tb->u.specific)
     {
-      c->ts.interface = tb->u.specific->n.sym;
+      gfc_symbol *ifc = tb->u.specific->n.sym;
+      c->ts.interface = ifc;
       if (!tb->deferred)
 	c->initializer = gfc_get_variable_expr (tb->u.specific);
+      c->attr.pure = ifc->attr.pure;
     }
 }
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: typebound_proc_32.f90
Type: text/x-fortran
Size: 761 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20131222/d5baad44/attachment.bin>