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 8139d524081095b04e7914de16b88384af3db385..211453ee8c4d5230a69049f8839af10b6f92c777 100644 (file)
--- 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 ead60f240af33307467dc1aecf5d2100383430d8..f8cd803162f2fa76e34b40a4191edcf5bbb305ec 100644 (file)
--- 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;
     }