------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-04-28
07:58 -------
Possible patch:
diff -p -u -r1.39 resolve.c
--- gcc/fortran/resolve.c 19 Mar 2005 19:45:33 -0000 1.39
+++ gcc/fortran/resolve.c 28 Apr 2005 07:56:12 -0000
@@ -616,6 +616,13 @@ resolve_actual_arglist (gfc_actual_argli
continue;
}
+ if (sym->attr.flavor == FL_PROCEDURE &&
+ sym->attr.proc == PROC_ST_FUNCTION)
+ {
+ gfc_error ("Statement function '%s' at %L is not allowed as an "
+ "actual argument", sym->name, &e->where);
+ }
+
/* See if the name is a module procedure in a parent unit. */
if (was_declared (sym) || sym->ns->parent == NULL)
I will look to see if I forgot something, then regtest, then post it.
--
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |fxcoudert at gcc dot gnu dot
|dot org |org
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed| |1
GCC target triplet|i686-pc-linux-gnu |
Keywords| |patch
Last reconfirmed|0000-00-00 00:00:00 |2005-04-28 07:58:03
date| |
Target Milestone|--- |4.0.1
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20865
