From e7105ec5056a7418c45a97763b630f5b46ca3db0 Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
Date: Mon, 7 Jun 2010 21:21:19 +0200
Subject: [PATCH] options.c (gfc_handle_option): Fix -fno-recursive.
2010-06-07 Tobias Burnus <burnus@net-b.de>
* options.c (gfc_handle_option): Fix -fno-recursive.
From-SVN: r160391
---
gcc/fortran/ChangeLog | 4 ++++
gcc/fortran/options.c | 2 +-
2 files changed, 5 insertions(+), 1 deletion(-)
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:
--
GitLab