From: Mark Eggleston <markeggleston@gcc.gnu.org>
Date: Wed, 10 Jun 2020 10:41:56 +0000 (+0100)
Subject: Fortran  : Missing gcc-internal-format PR42693
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d57bf2315e024ada3393ad967e8f632121383c9c;p=gcc.git

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 _().
---

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: