diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-29 17:43:02 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-29 17:43:02 +0000 |
| commit | 0b774babfb8e8cee784cba061d245868e2e2d3aa (patch) | |
| tree | 7617c79570b39de50ae8da9f7ed431e56dbd61f7 /gcc/fortran/cpp.c | |
| parent | 40b1bb9f3babc5bda92849a63cd114b1fe9737d6 (diff) | |
| download | gcc-0b774babfb8e8cee784cba061d245868e2e2d3aa.zip gcc-0b774babfb8e8cee784cba061d245868e2e2d3aa.tar.gz gcc-0b774babfb8e8cee784cba061d245868e2e2d3aa.tar.bz2 | |
cpp.c (gfc_cpp_init): Add pre-defined macros for INTEGER(1) INTEGER(2)...
2018-12-25 Steven G. Kargl <kargl@gcc.gnu.org>
* cpp.c (gfc_cpp_init): Add pre-defined macros for INTEGER(1)
INTEGER(2), INTEGER(8) and INTEGER(16) if supported. Add pre-defined
macros for REAL(10) and REAL(16) if available.
* gfortran.texi: Document new macros.
From-SVN: r267464
Diffstat (limited to 'gcc/fortran/cpp.c')
| -rw-r--r-- | gcc/fortran/cpp.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/fortran/cpp.c b/gcc/fortran/cpp.c index 95b08a9..bf4d891 100644 --- a/gcc/fortran/cpp.c +++ b/gcc/fortran/cpp.c @@ -609,6 +609,28 @@ gfc_cpp_init (void) opt->arg, opt->code == OPT_MQ); } + /* Pre-defined macros for non-required INTEGER kind types. */ + for (gfc_integer_info *itype = gfc_integer_kinds; itype->kind != 0; itype++) + { + if (itype->kind == 1) + cpp_define (cpp_in, "__GFC_INT_1__=1"); + if (itype->kind == 2) + cpp_define (cpp_in, "__GFC_INT_2__=1"); + if (itype->kind == 8) + cpp_define (cpp_in, "__GFC_INT_8__=1"); + if (itype->kind == 16) + cpp_define (cpp_in, "__GFC_INT_16__=1"); + } + + /* Pre-defined macros for non-required REAL kind types. */ + for (gfc_real_info *rtype = gfc_real_kinds; rtype->kind != 0; rtype++) + { + if (rtype->kind == 10) + cpp_define (cpp_in, "__GFC_REAL_10__=1"); + if (rtype->kind == 16) + cpp_define (cpp_in, "__GFC_REAL_16__=1"); + } + if (gfc_cpp_option.working_directory && gfc_cpp_option.preprocess_only && !gfc_cpp_option.no_line_commands) pp_dir_change (cpp_in, get_src_pwd ()); |