------- Comment #5 from fxcoudert at gcc dot gnu dot org  2007-11-09 01:25 
-------
The patch below should do it.

Index: expr.c
===================================================================
--- expr.c      (revision 129869)
+++ expr.c      (working copy)
@@ -1981,11 +1981,7 @@ check_inquiry (gfc_expr *e, int not_rest
       break;

   if (functions[i] == NULL)
-    {
-      gfc_error ("Inquiry function '%s' at %L is not permitted "
-                "in an initialization expression", name, &e->where);
-      return MATCH_ERROR;
-    }
+    return MATCH_ERROR;

   /* At this point we have an inquiry function with a variable argument.  The
      type of the variable might be undefined, but we need it now, because the


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
           Keywords|                            |patch
   Last reconfirmed|2007-10-31 19:20:31         |2007-11-09 01:25:46
               date|                            |


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

Reply via email to