From: Dominique d'Humieres <dominiq@lps.ens.fr>
Date: Sat, 17 May 2014 17:54:50 +0000 (+0200)
Subject: check.c (gfc_check_fn_rc2008): move "argument" to the right place.
X-Git-Tag: releases/gcc-5.1.0~7500
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=b570458199cafaa025486a17e6231ce26c780886;p=thirdparty%2Fgcc.git

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 606f6df20aff..64174b0c10f7 100644
--- 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 f58452dfdc43..9dd60718a330 100644
--- 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;