Index: errout.adb
===================================================================
--- errout.adb	(revision 202451)
+++ errout.adb	(working copy)
@@ -1302,7 +1302,7 @@
             CE : Error_Msg_Object renames Errors.Table (Cur);
 
          begin
-            if not CE.Deleted
+            if (CE.Warn and not CE.Deleted)
               and then
                 (Warning_Specifically_Suppressed (CE.Sptr, CE.Text)
                    or else