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
This commit is contained in:
Dominique d'Humieres 2014-05-17 19:54:50 +02:00 committed by Dominique d'Humieres
parent 80333d3d23
commit b570458199
2 changed files with 7 additions and 2 deletions

View File

@ -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

View File

@ -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;