From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 7 Jun 2010 19:21:19 +0000 (+0000)
Subject: 2010-06-07  Tobias Burnus  <burnus@net-b.de>
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1684aeab6f0e5e913f594a3a0a815fe6f02488c3;p=thirdparty%2Fgcc.git

2010-06-07  Tobias Burnus  <burnus@net-b.de>

        * options.c (gfc_handle_option): Fix -fno-recursive.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160391 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d636ac122389..78ee5a9ec8ba 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-06-07  Tobias Burnus  <burnus@net-b.de>
+
+	* options.c (gfc_handle_option): Fix -fno-recursive.
+
 2010-06-07  Tobias Burnus  <burnus@net-b.de>
 
 	* gfc-internals.texi (copyrights-gfortran): Fix copyright year format.
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index 2e4f5c190d68..d50c080b42fe 100644
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -938,7 +938,7 @@ gfc_handle_option (size_t scode, const char *arg, int value,
       break;
 
     case OPT_frecursive:
-      gfc_option.flag_recursive = 1;
+      gfc_option.flag_recursive = value;
       break;
 
     case OPT_falign_commons: