From: Daniel Franke <dfranke@gcc.gnu.org>
Date: Sat, 15 Mar 2008 14:28:55 +0000 (-0400)
Subject: re PR fortran/35584 (overzealous warning: branch causes infinite loop)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ab55105446b5bd197d6e41a7056036b27eda1154;p=gcc.git

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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8139d524081..211453ee8c4 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 ead60f240af..f8cd803162f 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;
     }