1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index 5492d26f2..fda63c81d 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -1107,9 +1107,9 @@ package body Iirs_Utils is
                for I in Natural loop
                   Bel := Get_Nth_Element (El_Blist, I);
                   exit when Bel = Null_Iir;
-                  if not Is_Fully_Constrained_Type (Bel) then
+                  if not Is_Fully_Constrained_Type (Get_Type (Bel)) then
                      El := Get_Nth_Element (El_List, I);
-                     if not Are_Bounds_Locally_Static (El) then
+                     if not Are_Bounds_Locally_Static (Get_Type (El)) then
                         return False;
                      end if;
                   end if;