mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-23 07:00:27 +08:00
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
This commit is contained in:
parent
395a1e9b5c
commit
7fb22ebe01
@ -1,3 +1,9 @@
|
||||
2017-03-15 David Malcolm <dmalcolm@redhat.com>
|
||||
|
||||
PR fortran/79860
|
||||
* resolve.c (resolve_contained_fntype): Make error messages more
|
||||
amenable to translation.
|
||||
|
||||
2017-03-06 Richard Biener <rguenther@suse.de>
|
||||
|
||||
PR fortran/79894
|
||||
|
@ -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);
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user