OSDN Git Service

Undo misguided distinction WRT deciding if a warning is an error or a warning.
authoraldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 16 Dec 2007 17:16:15 +0000 (17:16 +0000)
committeraldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 16 Dec 2007 17:16:15 +0000 (17:16 +0000)
A Warning is a warning, diagnostics DTRT. Cosmetic correction from fallout for
fix for PR21061. See ML-archives for details on why this hunk is wrong but
still harmless in effect.

2007-12-16  Bernhard Fischer  <aldot@gcc.gnu.org>

        * errors.c (gfc_notify_std): As originally stated but improperly
        changed, disregard warnings_are_errors for deciding which buffer
        to use for warnings.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130990 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/error.c

index 50425ab..3e3d717 100644 (file)
@@ -1,3 +1,9 @@
+2007-12-16  Bernhard Fischer  <aldot@gcc.gnu.org>
+
+       * errors.c (gfc_notify_std): As originally stated but improperly
+       changed, disregard warnings_are_errors for deciding which buffer
+       to use for warnings.
+
 2007-12-16  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/31213
index e25a428..fa1a505 100644 (file)
@@ -715,8 +715,7 @@ gfc_notify_std (int std, const char *nocmsgid, ...)
   if (gfc_suppress_error)
     return warning ? SUCCESS : FAILURE;
 
-  cur_error_buffer = (warning && !warnings_are_errors)
-                  ? &warning_buffer : &error_buffer;
+  cur_error_buffer = warning ? &warning_buffer : &error_buffer;
   cur_error_buffer->flag = 1;
   cur_error_buffer->index = 0;