diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2014-05-17 19:54:50 +0200 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2014-05-17 19:54:50 +0200 |
| commit | b570458199cafaa025486a17e6231ce26c780886 (patch) | |
| tree | 33f9efa6d4ccefb149aa8380dc9a02a13f26786e /gcc/fortran/check.c | |
| parent | 80333d3d23015d7e6e3a4380ccea5a04d807b9db (diff) | |
| download | gcc-b570458199cafaa025486a17e6231ce26c780886.zip gcc-b570458199cafaa025486a17e6231ce26c780886.tar.gz gcc-b570458199cafaa025486a17e6231ce26c780886.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index f58452d..9dd6071 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; |