Commit b5704581 by Dominique d'Humieres Committed by Dominique d'Humieres

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
parent 80333d3d
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
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment