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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 512e6322f3a2b991d24ba1f4a3a6501b7ac8a2af..b836610d820605e9110e2ba9343c68d92642f225 100644 (file)
--- 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 155534cd8224d86f9088db0ecdc82dd4df55428e..8947299bc1f461c496d7e3a8f7fcbc545e5380f4 100644 (file)
--- 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);