1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index 006390332..098268daa 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -735,7 +735,8 @@ package body Sem_Names is
          if False and then Flags.Vhdl_Std = Vhdl_87 then
             -- emit a warning for a null slice.
             Warning_Msg_Sem
-              ("direction mismatch results in a null slice", Name);
+              ("direction mismatch results in a null slice",
+               Name, Warnid_Runtime_Error);
          end if;
          Error_Msg_Sem ("direction of the range mismatch", Name);
       end if;