From 65a40a067d1b153265eaf8bcadbc225c5eeac041 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 5 Jan 2023 18:27:10 +0100
Subject: trans-chap3: fix style for old compilers

---
 src/vhdl/translate/trans-chap3.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index 12784d897..141bfca6e 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -1220,6 +1220,7 @@ package body Trans.Chap3 is
                El_Tinfo.S.Subtype_Owner := Get_Info (Def);
             when Kind_Type_Scalar =>
                pragma Assert (El_Tinfo.S.Range_Var /= Null_Var);
+               null;
             when Kind_Type_File
               | Kind_Type_Protected =>
                raise Internal_Error;
-- 
cgit v1.2.3