diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2017-03-22 17:29:30 +0100 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2017-03-22 17:29:30 +0100 |
| commit | 2f029c0898b6c1afcfe31c9f459f1ff43e9cce3f (patch) | |
| tree | 2feb2461ca530381301a8167867448f482e3fda8 /gcc/fortran/primary.c | |
| parent | af181c91a9f33ecf355065bcfbfce66c9fb1e111 (diff) | |
| download | gcc-2f029c0898b6c1afcfe31c9f459f1ff43e9cce3f.zip gcc-2f029c0898b6c1afcfe31c9f459f1ff43e9cce3f.tar.gz gcc-2f029c0898b6c1afcfe31c9f459f1ff43e9cce3f.tar.bz2 | |
re PR fortran/79602 (translation: globally replace '%s' with %qs)
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.
From-SVN: r246391
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index d7fc6c4..c12dc35 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1555,7 +1555,7 @@ match_actual_arg (gfc_expr **result) gfc_set_sym_referenced (sym); if (sym->attr.flavor == FL_NAMELIST) { - gfc_error ("Namelist '%s' can not be an argument at %L", + gfc_error ("Namelist %qs can not be an argument at %L", sym->name, &where); break; } @@ -2670,7 +2670,7 @@ build_actual_constructor (gfc_structure_ctor_component **comp_head, && CLASS_DATA (comp)->attr.allocatable)) { if (!gfc_notify_std (GFC_STD_F2008, "No initializer for " - "allocatable component '%qs' given in the " + "allocatable component %qs given in the " "structure constructor at %C", comp->name)) return false; } @@ -3571,7 +3571,7 @@ match_variable (gfc_expr **result, int equiv_flag, int host_flag) && (dt_sym = gfc_find_dt_in_generic (sym))) { if (dt_sym->attr.flavor == FL_DERIVED) - gfc_error ("Derived type '%s' cannot be used as a variable at %C", + gfc_error ("Derived type %qs cannot be used as a variable at %C", sym->name); return MATCH_ERROR; } |