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 d636ac12238988383530495610f940a2f49448e6..78ee5a9ec8ba64816897587d1811a1a41c053041 100644 (file)
--- 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 2e4f5c190d683ce4a7a0870cb0028780707b9ee2..d50c080b42fe764cf3be9088bce23ae23c06d551 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: