[Bug fortran/39946] PROCEDURE statements: interface with RESULT variable

[janus at gcc dot gnu dot org]

------- Comment #1 from janus at gcc dot gnu dot org  2009-04-28 14:52 -------
Here's a patch:

Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c       (Revision 146879)
+++ gcc/fortran/resolve.c       (Arbeitskopie)
@@ -9244,7 +9244,10 @@ resolve_symbol (gfc_symbol *sym)
          if (ifc->attr.intrinsic)
            resolve_intrinsic (ifc, &ifc->declared_at);

-         sym->ts = ifc->ts;
+         if (ifc->result)
+           sym->ts = ifc->result->ts;
+         else   
+           sym->ts = ifc->ts;
          sym->ts.interface = ifc;
          sym->attr.function = ifc->attr.function;
          sym->attr.subroutine = ifc->attr.subroutine;


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-04-28 14:52:49
               date|                            |


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