1 files changed, 1 insertions, 0 deletions
diff --git a/src/options.adb b/src/options.adb
index 3191cd575..265b4614a 100644
--- a/src/options.adb
+++ b/src/options.adb
@@ -66,6 +66,7 @@ package body Options is
    begin
       --  Handle -Werror.
       if Opt = "error" then
+         Warning_Error (Msgid_Warning, Val);
          for I in Msgid_Warnings loop
             Warning_Error (I, Val);
          end loop;