check.c (gfc_check_fn_rc2008): move "argument" to the right place.

2014-05-17  Dominique d'Humieres <dominiq@lps.ens.fr>

	* check.c (gfc_check_fn_rc2008): move "argument" to the right
	place.

From-SVN: r210561

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 606f6df..64174b0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-17  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+       * check.c (gfc_check_fn_rc2008): move "argument" to the right
+       place.
+
 2014-05-12  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/60127

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index f58452d..9dd6071 100644 (file)
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -1821,8 +1821,8 @@ gfc_check_fn_rc2008 (gfc_expr *a)
     return false;
 
   if (a->ts.type == BT_COMPLEX
-      && !gfc_notify_std (GFC_STD_F2008, "COMPLEX '%s' "
-                         "argument of '%s' intrinsic at %L", 
+      && !gfc_notify_std (GFC_STD_F2008, "COMPLEX argument '%s' "
+                         "of '%s' intrinsic at %L", 
                          gfc_current_intrinsic_arg[0]->name, 
                          gfc_current_intrinsic, &a->where))
     return false;