[Bug fortran/30235] missing alternate return argument with explicit interface causes segfault

[brooks at gcc dot gnu dot org]

------- Comment #1 from brooks at gcc dot gnu dot org  2006-12-17 08:34 -------
I think this patch fixes this; I'm testing it now:

Index: interface.c
===================================================================
--- interface.c (revision 119980)
+++ interface.c (working copy)
@@ -1446,6 +1446,13 @@
     {
       if (new[i] != NULL)
        continue;
+      if (f->sym == NULL)
+       {
+         if (where)
+           gfc_error ("Missing alternate return spec in subroutine call at
%L",
+                      where);
+         return 0;
+       }
       if (!f->sym->attr.optional)
        {
          if (where)


-- 

brooks at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |brooks at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2006-12-17 08:34:15
               date|                            |


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