diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 204bd3221dc..c8c9d386601 100644
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -1191,7 +1191,7 @@ package body Errout is
 
          if Errors.Table (Cur_Msg).Warn then
             Warning_Info_Messages := Warning_Info_Messages + 1;
-            Warnings_Detected := Warnings_Detected + 1;
+            Warnings_Detected     := Warnings_Detected + 1;
          else
             Report_Info_Messages := Report_Info_Messages + 1;
          end if;