From ab55105446b5bd197d6e41a7056036b27eda1154 Mon Sep 17 00:00:00 2001
From: Daniel Franke <dfranke@gcc.gnu.org>
Date: Sat, 15 Mar 2008 10:28:55 -0400
Subject: [PATCH] re PR fortran/35584 (overzealous warning: branch causes
infinite loop)
2008-03-15 Daniel Franke <franke.daniel@gmail.com>
PR fortran/35584
* resolve.c (resolve_branch): Less strict and pessimistic warning
message.
From-SVN: r133250
---
gcc/fortran/ChangeLog | 10 ++++++++--
gcc/fortran/resolve.c | 2 +-
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8139d5240810..211453ee8c4d 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,7 +1,13 @@
+2008-03-15 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/35584
+ * resolve.c (resolve_branch): Less strict and pessimistic warning
+ message.
+
2008-03-11 Paolo Bonzini <bonzini@gnu.org>
- * f95-lang.c (LANG_HOOKS_CLEAR_BINDING_STACK): Delete.
- (gfc_be_parse_file): Call clear_binding_stack from here.
+ * f95-lang.c (LANG_HOOKS_CLEAR_BINDING_STACK): Delete.
+ (gfc_be_parse_file): Call clear_binding_stack from here.
(gfc_clear_binding_stack): Rename to clear_binding_stack.
2008-03-09 Paul Thomas <pault@gcc.gnu.org>
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index ead60f240af3..f8cd803162f2 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -5596,7 +5596,7 @@ resolve_branch (gfc_st_label *label, gfc_code *code)
if (code->here == label)
{
- gfc_warning ("Branch at %L causes an infinite loop", &code->loc);
+ gfc_warning ("Branch at %L may result in an infinite loop", &code->loc);
return;
}
--
GitLab