From e297ac285850d36c48ba476e478838f9b0276960 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Mon, 7 May 2007 05:48:24 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124495 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/c-cppbuiltin.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/c-cppbuiltin.c') diff --git a/gcc/c-cppbuiltin.c b/gcc/c-cppbuiltin.c index c36b038bc77..cc19ce5dd7d 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__", -- cgit v1.2.1