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 606f6df20aff4a78e40ba8d1b3d2d5fc88ad92bb..64174b0c10f70a211d49b5e96b299a8d157bfac6 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 f58452dfdc43fbb56c2a566c7d39c040cbddc975..9dd60718a330c58ed9470fb9bf3d8929fe2d4622 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;