diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-07 05:48:24 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-07 05:48:24 +0000 |
| commit | 2f8e3bd7bd87055806b1180fc5a5b4668b0c28cd (patch) | |
| tree | 6305e39d4443bb69859bcffcb753cca8d2996c37 /gcc/c-cppbuiltin.c | |
| parent | 8fa013c3e01432333222eea1044483988baae1cb (diff) | |
| download | gcc-2f8e3bd7bd87055806b1180fc5a5b4668b0c28cd.zip gcc-2f8e3bd7bd87055806b1180fc5a5b4668b0c28cd.tar.gz gcc-2f8e3bd7bd87055806b1180fc5a5b4668b0c28cd.tar.bz2 | |
re PR driver/31694 (__GFORTRAN__ preprocessor macro)
PR driver/31694
* c-opts.c (lang_fortran): Make it non static.
* c-common.h (lang_fortran): New prototype.
* c-cppbuiltin.c (c_cpp_builtins): Create a __GFORTRAN__ if the
-lang-fortran option was passed by the driver.
From-SVN: r124495
Diffstat (limited to 'gcc/c-cppbuiltin.c')
| -rw-r--r-- | gcc/c-cppbuiltin.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/c-cppbuiltin.c b/gcc/c-cppbuiltin.c index c36b038..cc19ce5 100644 --- a/gcc/c-cppbuiltin.c +++ b/gcc/c-cppbuiltin.c @@ -569,6 +569,9 @@ c_cpp_builtins (cpp_reader *pfile) if (flag_openmp) cpp_define (pfile, "_OPENMP=200505"); + if (lang_fortran) + cpp_define (pfile, "__GFORTRAN__=1"); + builtin_define_type_sizeof ("__SIZEOF_INT__", integer_type_node); builtin_define_type_sizeof ("__SIZEOF_LONG__", long_integer_type_node); builtin_define_type_sizeof ("__SIZEOF_LONG_LONG__", |