Skip to content

R
riscv-gcc-1
Commit 8d6d0e8e by Jerry DeLisle
Options

re PR fortran/33849 (Fix misleading error message "GENERIC non-INTRINSIC… 

re PR fortran/33849 (Fix misleading error message "GENERIC non-INTRINSIC procedure not allowed as an actual argument")

2007-10-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/33849
	* resolve.c (resolve_actual_arglist): Fix error message text.

From-SVN: r129564
parent def14a3c
Showing with 8 additions and 3 deletions
gcc/fortran/ChangeLog
2007-10-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33849
* resolve.c (resolve_actual_arglist): Fix error message text.
2007-10-22 Steven G. Kargl <kargl@gcc.gnu.org> 2007-10-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/31244 PR fortran/31244
......
gcc/fortran/resolve.c
...@@ -1056,9 +1056,9 @@ resolve_actual_arglist (gfc_actual_arglist *arg, procedure_type ptype) ...@@ -1056,9 +1056,9 @@ resolve_actual_arglist (gfc_actual_arglist *arg, procedure_type ptype)
} }
if (p == NULL || e->symtree == NULL) if (p == NULL || e->symtree == NULL)
gfc_error ("GENERIC non-INTRINSIC procedure '%s' is not " gfc_error ("GENERIC procedure '%s' is not "
"allowed as an actual argument at %L", sym->name, "allowed as an actual argument at %L", sym->name,
&e->where); &e->where);
} }
/* If the symbol is the function that names the current (or /* If the symbol is the function that names the current (or
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment