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/decl.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/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 7d61fbf..a04f5a6 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1908,7 +1908,7 @@ build_struct (const char *name, gfc_charlen *cl, gfc_expr **init, c = gfc_find_component (s->sym, name, true, true, NULL); if (c != NULL) { - gfc_error_now ("Component '%s' at %C already declared at %L", + gfc_error_now ("Component %qs at %C already declared at %L", name, &c->loc); return false; } @@ -3138,7 +3138,7 @@ gfc_match_decl_type_spec (gfc_typespec *ts, int implicit_flag) * don't need all the extra derived-type stuff for structures. */ if (gfc_find_symbol (gfc_dt_upper_string (name), NULL, 1, &sym)) { - gfc_error ("Type name '%s' at %C is ambiguous", name); + gfc_error ("Type name %qs at %C is ambiguous", name); return MATCH_ERROR; } if (sym && sym->attr.flavor == FL_STRUCT) @@ -7578,7 +7578,7 @@ access_attr_decl (gfc_statement st) if (sym == NULL) { gfc_error ("The GENERIC DTIO INTERFACE at %C is not " - "present in the MODULE '%s'", + "present in the MODULE %qs", gfc_current_ns->proc_name->name); return MATCH_ERROR; } @@ -8595,7 +8595,7 @@ get_struct_decl (const char *name, sym_flavor fl, locus *decl, if (sym->components != NULL || sym->attr.zero_comp) { - gfc_error ("Type definition of '%s' at %C was already defined at %L", + gfc_error ("Type definition of %qs at %C was already defined at %L", sym->name, &sym->declared_at); return false; } @@ -8748,7 +8748,7 @@ gfc_match_structure_decl (void) /* Make sure the name is not the name of an intrinsic type. */ if (gfc_is_intrinsic_typename (name)) { - gfc_error ("Structure name '%s' at %C cannot be the same as an" + gfc_error ("Structure name %qs at %C cannot be the same as an" " intrinsic type", name); return MATCH_ERROR; } |