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

+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

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);