diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/check.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/matchexp.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/symbol.c | 4 |
4 files changed, 12 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 413318d..749d522 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,11 @@ +2014-12-12 Tobias Burnus <burnus@net-b.de> + + PR fortran/68815 + * check.c (gfc_check_reshape): Replace %<%d%> by %qd. + * matchexp.c (gfc_match_defined_op_name): Use %qc. + * symbol.c (gfc_add_new_implicit_range, + gfc_merge_new_implicit): Ditto. + 2015-12-10 David Malcolm <dmalcolm@redhat.com> * io.c (gfc_match_open): Fix indentation. diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 6dc7f3e..3f1bdd3 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -3863,7 +3863,7 @@ gfc_check_reshape (gfc_expr *source, gfc_expr *shape, { gfc_error ("%qs argument of %qs intrinsic at %L has " "invalid permutation of dimensions (dimension " - "%<%d%> duplicated)", + "%qd duplicated)", gfc_current_intrinsic_arg[3]->name, gfc_current_intrinsic, &e->where, dim); return false; diff --git a/gcc/fortran/matchexp.c b/gcc/fortran/matchexp.c index 02f43a0..c14ef59 100644 --- a/gcc/fortran/matchexp.c +++ b/gcc/fortran/matchexp.c @@ -69,7 +69,7 @@ gfc_match_defined_op_name (char *result, int error_flag) for (i = 0; name[i]; i++) if (!ISALPHA (name[i])) { - gfc_error ("Bad character %<%c%> in OPERATOR name at %C", name[i]); + gfc_error ("Bad character %qc in OPERATOR name at %C", name[i]); return MATCH_ERROR; } diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 311f743..678a231 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -165,7 +165,7 @@ gfc_add_new_implicit_range (int c1, int c2) { if (new_flag[i]) { - gfc_error ("Letter %<%c%> already set in IMPLICIT statement at %C", + gfc_error ("Letter %qc already set in IMPLICIT statement at %C", i + 'A'); return false; } @@ -197,7 +197,7 @@ gfc_merge_new_implicit (gfc_typespec *ts) { if (gfc_current_ns->set_flag[i]) { - gfc_error ("Letter %c already has an IMPLICIT type at %C", + gfc_error ("Letter %qc already has an IMPLICIT type at %C", i + 'A'); return false; } |