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

gcc/ChangeLog

+2007-05-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	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.
+
 2007-05-06  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* timevar.c (timevar_print): Test ENABLE_ASSERT_CHECKING instead

gcc/c-common.h

@@ -254,6 +254,8 @@ extern c_language_kind c_language;
 #define c_dialect_cxx()		(c_language & clk_cxx)
 #define c_dialect_objc()	(c_language & clk_objc)
 
+extern bool lang_fortran;
+
 /* Information about a statement tree.  */
 
 struct stmt_tree_s GTY(()) {

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__",

gcc/c-opts.c

@@ -73,7 +73,7 @@ static bool deps_seen;
 static bool verbose;
 
 /* If -lang-fortran seen.  */
-static bool lang_fortran = false;
+bool lang_fortran = false;
 
 /* Dependency output file.  */
 static const char *deps_file;