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

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>
 
 	PR fortran/31244

gcc/fortran/resolve.c

@@ -1056,7 +1056,7 @@ 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 "
+		gfc_error ("GENERIC procedure '%s' is not "
 			   "allowed as an actual argument at %L", sym->name,
 			   &e->where);
 	    }