diff options
| author | David Malcolm <dmalcolm@redhat.com> | 2017-05-19 13:52:14 +0000 |
|---|---|---|
| committer | David Malcolm <dmalcolm@gcc.gnu.org> | 2017-05-19 13:52:14 +0000 |
| commit | 546c8974ff51ef7554e18d94177fc953c0e54b95 (patch) | |
| tree | ec0a2b685388ea3e95b2a0809937cd06801fdd82 /gcc/fortran/primary.c | |
| parent | 43e89e0a1e35194c9a00de873518e5d81f21d5bf (diff) | |
| download | gcc-546c8974ff51ef7554e18d94177fc953c0e54b95.zip gcc-546c8974ff51ef7554e18d94177fc953c0e54b95.tar.gz gcc-546c8974ff51ef7554e18d94177fc953c0e54b95.tar.bz2 | |
fortran: remove trailing exclamation mark from various diagnostics (PR fortran/79852)
gcc/fortran/ChangeLog:
PR fortran/79852
* bbt.c (insert): Remove trailing exclamation mark from message.
* decl.c (gfc_match_final_decl): Likewise.
* dump-parse-tree.c (show_expr): Likewise.
* module.c (gfc_use_module): Likewise.
* primary.c (build_actual_constructor): Likewise.
(gfc_convert_to_structure_constructor): Likewise.
From-SVN: r248283
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index c12dc35..b30afdd 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2677,7 +2677,7 @@ build_actual_constructor (gfc_structure_ctor_component **comp_head, else if (!comp->attr.artificial) { gfc_error ("No initializer for component %qs given in the" - " structure constructor at %C!", comp->name); + " structure constructor at %C", comp->name); return false; } } @@ -2760,13 +2760,13 @@ gfc_convert_to_structure_constructor (gfc_expr *e, gfc_symbol *sym, gfc_expr **c { if (last_name) gfc_error ("Component initializer without name after component" - " named %s at %L!", last_name, + " named %s at %L", last_name, actual->expr ? &actual->expr->where : &gfc_current_locus); else gfc_error ("Too many components in structure constructor at " - "%L!", actual->expr ? &actual->expr->where - : &gfc_current_locus); + "%L", actual->expr ? &actual->expr->where + : &gfc_current_locus); goto cleanup; } @@ -2802,7 +2802,7 @@ gfc_convert_to_structure_constructor (gfc_expr *e, gfc_symbol *sym, gfc_expr **c if (!strcmp (comp_iter->name, comp_tail->name)) { gfc_error ("Component %qs is initialized twice in the structure" - " constructor at %L!", comp_tail->name, + " constructor at %L", comp_tail->name, comp_tail->val ? &comp_tail->where : &gfc_current_locus); goto cleanup; @@ -2814,7 +2814,7 @@ gfc_convert_to_structure_constructor (gfc_expr *e, gfc_symbol *sym, gfc_expr **c && gfc_is_coindexed (comp_tail->val)) { gfc_error ("Coindexed expression to pointer component %qs in " - "structure constructor at %L!", comp_tail->name, + "structure constructor at %L", comp_tail->name, &comp_tail->where); goto cleanup; } |