From 7fb22ebe018682ebcddc069c0ba39d82c3e91eb8 Mon Sep 17 00:00:00 2001 From: David Malcolm Date: Wed, 15 Mar 2017 18:05:06 +0000 Subject: [PATCH] Fix translation issue with character length * errors (PR fortran/79860) gcc/fortran/ChangeLog: PR fortran/79860 * resolve.c (resolve_contained_fntype): Make error messages more amenable to translation. From-SVN: r246170 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 9 +++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5c99ca70f48..8629cab6ccb 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2017-03-15 David Malcolm + + PR fortran/79860 + * resolve.c (resolve_contained_fntype): Make error messages more + amenable to translation. + 2017-03-06 Richard Biener PR fortran/79894 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1fbc9f6ef93..accb5a258a9 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -615,10 +615,11 @@ resolve_contained_fntype (gfc_symbol *sym, gfc_namespace *ns) gcc_assert (ns->parent && ns->parent->proc_name); module_proc = (ns->parent->proc_name->attr.flavor == FL_MODULE); - gfc_error ("Character-valued %s %qs at %L must not be" - " assumed length", - module_proc ? _("module procedure") - : _("internal function"), + gfc_error (module_proc + ? G_("Character-valued module procedure %qs at %L" + " must not be assumed length") + : G_("Character-valued internal function %qs at %L" + " must not be assumed length"), sym->name, &sym->declared_at); } } -- 2.11.4.GIT