diff options
| author | Tobias Burnus <burnus@net-b.de> | 2015-12-12 19:55:25 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2015-12-12 19:55:25 +0100 |
| commit | 8d4227c89bd724cba6995aa50f7c566d95b9ce51 (patch) | |
| tree | a8269eca2cd38f798bda37b27f0adab5f1016008 /gcc/fortran | |
| parent | 68f7e79ea7c0451b5a890a6d193cf31a8795193e (diff) | |
| download | gcc-8d4227c89bd724cba6995aa50f7c566d95b9ce51.zip gcc-8d4227c89bd724cba6995aa50f7c566d95b9ce51.tar.gz gcc-8d4227c89bd724cba6995aa50f7c566d95b9ce51.tar.bz2 | |
re PR fortran/68815 (Error/warning diagnostic: '%s' should be converted to %qs-like or %<%s%>-like string strings)
2014-12-12 Tobias Burnus <burnus@net-b.de>
gcc/c-family/
PR fortran/68815
* c-format.c (gcc_gfc_char_table): Add 'q' flag to remaining
specifiers (%d, %i,%u and %c).
gcc/fortran/
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.
From-SVN: r231584
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; } |