diff options
author | dmalcolm <dmalcolm@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-15 18:05:06 +0000 |
---|---|---|
committer | dmalcolm <dmalcolm@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-03-15 18:05:06 +0000 |
commit | 101d9cf4b599388f7f0168d49bcf89418579f72a (patch) | |
tree | 483093055a22199873e2b4ccc457fa447a9d7f68 /gcc/fortran/resolve.c | |
parent | cdb5c423944fc1df7f61d53c9125dae3948f8d78 (diff) |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@246170 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
-rw-r--r-- | gcc/fortran/resolve.c | 9 |
1 files changed, 5 insertions, 4 deletions
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); } } |