diff options
| author | Mark Eggleston <markeggleston@gcc.gnu.org> | 2020-06-10 11:41:56 +0100 |
|---|---|---|
| committer | Mark Eggleston <markeggleston@gcc.gnu.org> | 2020-06-22 11:46:52 +0100 |
| commit | d57bf2315e024ada3393ad967e8f632121383c9c (patch) | |
| tree | b6b80165035bc48f4d009fdde1024d9709dd43f2 /gcc/fortran | |
| parent | cf07eea8429c923b7eb884ffc1b267c80a0a839c (diff) | |
| download | gcc-d57bf2315e024ada3393ad967e8f632121383c9c.zip gcc-d57bf2315e024ada3393ad967e8f632121383c9c.tar.gz gcc-d57bf2315e024ada3393ad967e8f632121383c9c.tar.bz2 | |
Fortran : Missing gcc-internal-format PR42693
Messages in gfc_arith_error contain gcc internal format specifiers
which should be enclosed in G_() in order to be correctly translated.
2020-06-22 Mark Eggleston <markeggleston@gcc.gnu.org>
gcc/fortran/
PR fortran/42693
* arith.c (gfc_arith_error): Enclose strings in G_() instead
of _().
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/arith.c | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index c770569..f76e196 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -94,30 +94,29 @@ gfc_arith_error (arith code) switch (code) { case ARITH_OK: - p = _("Arithmetic OK at %L"); + p = G_("Arithmetic OK at %L"); break; case ARITH_OVERFLOW: - p = _("Arithmetic overflow at %L"); + p = G_("Arithmetic overflow at %L"); break; case ARITH_UNDERFLOW: - p = _("Arithmetic underflow at %L"); + p = G_("Arithmetic underflow at %L"); break; case ARITH_NAN: - p = _("Arithmetic NaN at %L"); + p = G_("Arithmetic NaN at %L"); break; case ARITH_DIV0: - p = _("Division by zero at %L"); + p = G_("Division by zero at %L"); break; case ARITH_INCOMMENSURATE: - p = _("Array operands are incommensurate at %L"); + p = G_("Array operands are incommensurate at %L"); break; case ARITH_ASYMMETRIC: - p = - _("Integer outside symmetric range implied by Standard Fortran at %L"); + p = G_("Integer outside symmetric range implied by Standard Fortran" + " at %L"); break; case ARITH_WRONGCONCAT: - p = - _("Illegal type in character concatenation at %L"); + p = G_("Illegal type in character concatenation at %L"); break; default: |