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

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

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

From-SVN: r129564

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a53692907379b6186e343dc7ab48da47e7baea78..a4d9c71dda9ecb2f3664e4e7c8ef4f2c9cef1210 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/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

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 3c7893c04060b7b74a86e2badae3fab5d78c661b..582bb928276b5364c06eae8a7ed37060566dbd34 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/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