mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-24 22:11:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r129564
This commit is contained in:
Jerry DeLisle 2007-10-22 23:08:16 +00:00
parent def14a3ccd
commit 8d6d0e8e0a
2 changed files with 8 additions and 3 deletions

5
gcc/fortran/ChangeLog

@ -1,3 +1,8 @@
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>
PR fortran/31244

6
gcc/fortran/resolve.c

@ -1056,9 +1056,9 @@ resolve_actual_arglist (gfc_actual_arglist *arg, procedure_type ptype)
}
if (p == NULL || e->symtree == NULL)
gfc_error ("GENERIC non-INTRINSIC procedure '%s' is not "
"allowed as an actual argument at %L", sym->name,
&e->where);
gfc_error ("GENERIC procedure '%s' is not "
"allowed as an actual argument at %L", sym->name,
&e->where);
}
/* If the symbol is the function that names the current (or