From 193f241906489ee3154a69054c0e2e60e0d7d35b Mon Sep 17 00:00:00 2001
From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Wed, 15 May 2019 22:33:32 +0300
Subject: [PATCH] Remove translation string markers

C preprocessor definitions should not be translated.

2019-05-15  Janne Blomqvist  <jb@gcc.gnu.org>

        * parse.c (gfc_parse_file): Remove translation string markers.

From-SVN: r271261
---
 gcc/fortran/ChangeLog |  4 ++++
 gcc/fortran/parse.c   | 27 +++++++++++++--------------
 2 files changed, 17 insertions(+), 14 deletions(-)

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 512e6322f3a..b836610d820 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2019-05-15  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	* parse.c (gfc_parse_file): Remove translation string markers.
+
 2019-05-12  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	* dump-parse-tree.c (get_c_type_name): Use macros for complex type
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index 155534cd822..8947299bc1f 100644
--- a/gcc/fortran/parse.c
+++ b/gcc/fortran/parse.c
@@ -6334,18 +6334,18 @@ done:
   if (flag_c_prototypes || flag_c_prototypes_external)
     {
       fprintf (stdout,
-	       _("#include <stddef.h>\n"
-		 "#ifdef __cplusplus\n"
-		 "#include <complex>\n"
-		 "#define __GFORTRAN_FLOAT_COMPLEX std::complex<float>\n"
-		 "#define __GFORTRAN_DOUBLE_COMPLEX std::complex<double>\n"
-		 "#define __GFORTRAN_LONG_DOUBLE_COMPLEX std::complex<long double>\n"
-		 "extern \"C\" {\n"
-		 "#else\n"
-		 "#define __GFORTRAN_FLOAT_COMPLEX float _Complex\n"
-		 "#define __GFORTRAN_DOUBLE_COMPLEX double _Complex\n"
-		 "#define __GFORTRAN_LONG_DOUBLE_COMPLEX long double _Complex\n"
-		 "#endif\n\n"));
+	       "#include <stddef.h>\n"
+	       "#ifdef __cplusplus\n"
+	       "#include <complex>\n"
+	       "#define __GFORTRAN_FLOAT_COMPLEX std::complex<float>\n"
+	       "#define __GFORTRAN_DOUBLE_COMPLEX std::complex<double>\n"
+	       "#define __GFORTRAN_LONG_DOUBLE_COMPLEX std::complex<long double>\n"
+	       "extern \"C\" {\n"
+	       "#else\n"
+	       "#define __GFORTRAN_FLOAT_COMPLEX float _Complex\n"
+	       "#define __GFORTRAN_DOUBLE_COMPLEX double _Complex\n"
+	       "#define __GFORTRAN_LONG_DOUBLE_COMPLEX long double _Complex\n"
+	       "#endif\n\n");
     }
 
   /* First dump BIND(C) prototypes.  */
@@ -6361,8 +6361,7 @@ done:
     gfc_dump_external_c_prototypes (stdout);
 
   if (flag_c_prototypes || flag_c_prototypes_external)
-    fprintf (stdout,
-	     _("\n#ifdef __cplusplus\n}\n#endif\n"));
+    fprintf (stdout, "\n#ifdef __cplusplus\n}\n#endif\n");
 
   /* Do the translation.  */
   translate_all_program_units (gfc_global_ns_list);
-- 
2.30.2