diff options
| author | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-22 16:29:30 +0000 |
|---|---|---|
| committer | dominiq <dominiq@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-22 16:29:30 +0000 |
| commit | 1b7008c4c12878ef1ac41882d1d1517920047054 (patch) | |
| tree | 2feb2461ca530381301a8167867448f482e3fda8 /gcc/fortran/expr.c | |
| parent | 43b0b3ac03893413e1f769fe44868133becd8125 (diff) | |
2017-03-22 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/79602
* decl.c: Replace '%s' with %qs.
* expr.c: Likewise.
* interface.c: Likewise.
* match.c: Likewise.
* primary.c: Likewise.
* resolve.c: Likewise.
PR fortran/79844
PR fortran/80011
* io.c: Remove trailing spaces.
* match.c: Likewise.
* openmp.c: Likewise.
* resolve.c: Likewise.
* trans-intrinsic.c: Likewise.
PR fortran/79853
* expr.c: Remove a double spaces.
PR fortran/79859
* primary.c: Remove spurious quotes around %qs.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@246391 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index f90bdc398762..0e5f04d0bdf2 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -2321,7 +2321,7 @@ check_inquiry (gfc_expr *e, int not_restricted) || ap->expr->symtree->n.sym->ts.deferred)) { gfc_error ("Assumed or deferred character length variable %qs " - " in constant expression at %L", + "in constant expression at %L", ap->expr->symtree->n.sym->name, &ap->expr->where); return MATCH_ERROR; @@ -2792,7 +2792,7 @@ external_spec_function (gfc_expr *e) /* F08:7.1.11.6. */ if (f->attr.recursive && !gfc_notify_std (GFC_STD_F2003, - "Specification function '%s' " + "Specification function %qs " "at %L cannot be RECURSIVE", f->name, &e->where)) return false; @@ -3591,7 +3591,7 @@ gfc_check_pointer_assign (gfc_expr *lvalue, gfc_expr *rvalue) if (!s1 && comp1 && comp1->attr.subroutine && s2 && s2->attr.function) { gfc_error ("Interface mismatch in procedure pointer assignment " - "at %L: '%s' is not a subroutine", &rvalue->where, name); + "at %L: %qs is not a subroutine", &rvalue->where, name); return false; } |