procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fortran: remove trailing exclamation mark from various diagnostics (PR fortran/79852)

Browse source 
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
This commit is contained in:
David Malcolm 2017-05-19 13:52:14 +00:00 • committed by David Malcolm
parent 43e89e0a1e
commit 546c8974ff
6 changed files with 20 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gcc/fortran/ChangeLog
View file

@ -1,3 +1,13 @@
2017-05-19 David Malcolm <dmalcolm@redhat.com>
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.
2017-05-19 Thomas Schwinge <thomas@codesourcery.com>
* gfortran.h (enum gfc_omp_default_sharing): Add

2
gcc/fortran/bbt.c
View file

@ -116,7 +116,7 @@ insert (gfc_bbt *new_bbt, gfc_bbt *t, compare_fn compare)
t = rotate_left (t);
}
else /* if (c == 0) */
gfc_internal_error("insert_bbt(): Duplicate key found!");
gfc_internal_error("insert_bbt(): Duplicate key found");
return t;
}

2
gcc/fortran/decl.c
View file

@ -9969,7 +9969,7 @@ gfc_match_final_decl (void)
for (f = block->f2k_derived->finalizers; f; f = f->next)
if (f->proc_sym == sym)
{
gfc_error ("%qs at %C is already defined as FINAL procedure!",
gfc_error ("%qs at %C is already defined as FINAL procedure",
name);
return MATCH_ERROR;
}

2
gcc/fortran/dump-parse-tree.c
View file

@ -573,7 +573,7 @@ show_expr (gfc_expr *p)
default:
gfc_internal_error
("show_expr(): Bad intrinsic in expression!");
("show_expr(): Bad intrinsic in expression");
}
show_expr (p->value.op.op1);

2
gcc/fortran/module.c
View file

@ -6976,7 +6976,7 @@ gfc_use_module (gfc_use_list *module)
for (p = gfc_state_stack; p; p = p->previous)
if ((p->state == COMP_MODULE || p->state == COMP_SUBMODULE)
&& strcmp (p->sym->name, module_name) == 0)
gfc_fatal_error ("Can't USE the same %smodule we're building!",
gfc_fatal_error ("Can't USE the same %smodule we're building",
p->state == COMP_SUBMODULE ? "sub" : "");
init_pi_tree ();

12
gcc/fortran/primary.c
View file

@ -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;
}