diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2019-05-15 22:33:32 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2019-05-15 22:33:32 +0300 |
| commit | 193f241906489ee3154a69054c0e2e60e0d7d35b (patch) | |
| tree | 5f15a3802dfcd28497d19384c145991a966a017f /gcc/fortran/parse.c | |
| parent | 0c15ebf1bd0d7ec8111acfecf71542acac4115b1 (diff) | |
| download | gcc-193f241906489ee3154a69054c0e2e60e0d7d35b.zip gcc-193f241906489ee3154a69054c0e2e60e0d7d35b.tar.gz gcc-193f241906489ee3154a69054c0e2e60e0d7d35b.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 155534c..8947299 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); |