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 d636ac1..78ee5a9 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,9 @@
 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.
        * gfortran.texi (copyrights-gfortran): Ditto.
 

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index 2e4f5c1..d50c080 100644 (file)
--- 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: