------- 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
