diff mbox series

Fortran : Missing gcc-internal-format PR42693

Message ID c9a046a9-db87-4d38-3101-acb7c1794a63@codethink.co.uk
State New
Headers show
Series Fortran : Missing gcc-internal-format PR42693 | expand

Commit Message

Mark Eggleston June 17, 2020, 7:10 a.m. UTC 
Please find attached patch for PR42693.

OK to commit and backport?

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-17  Mark Eggleston <markeggleston@gcc.gnu.org>

gcc/fortran/

     PR fortran/42693
     * arith.c (gfc_arith_error): Enclose strings in G_() instead
     of _().

Comments

Thomas Koenig June 20, 2020, 10:12 a.m. UTC | #1 
Am 17.06.20 um 09:10 schrieb Mark Eggleston:
> Please find attached patch for PR42693.
> 
> OK to commit and backport?

OK for trunk.

For backporting, it makes little sense since nobody is going
to do a new translation for the existing branches.

Regards

	Thomas
diff mbox series

Patch

From acdfd0d45556449bc32fb1a29a0580e050832c9e Mon Sep 17 00:00:00 2001
From: Mark Eggleston <markeggleston@gcc.gnu.org>
Date: Wed, 10 Jun 2020 11:41:56 +0100
Subject: [PATCH] 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-17  Mark Eggleston  <markeggleston@gcc.gnu.org>

gcc/fortran/

	PR fortran/42693
	* arith.c (gfc_arith_error): Enclose strings in G_() instead
	of _().
---
 gcc/fortran/arith.c | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index c770569eb81..f76e19640a3 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:
-- 
2.11.0