From e00d31baa0e7190b959cfb03df03b260e402da05 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Oct 2014 13:15:33 +0200
Subject: Rework for support of generic packages.

---
 sem_stmts.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sem_stmts.adb')

diff --git a/sem_stmts.adb b/sem_stmts.adb
index b95b3e510..d9758073b 100644
--- a/sem_stmts.adb
+++ b/sem_stmts.adb
@@ -944,7 +944,7 @@ package body Sem_Stmts is
               (Chain, Choice_Type, False, True, Loc, Low, High);
          when Iir_Kind_Array_Subtype_Definition
            | Iir_Kind_Array_Type_Definition =>
-            if not Is_Unidim_Array_Type (Choice_Type) then
+            if not Is_One_Dimensional_Array_Type (Choice_Type) then
                Error_Msg_Sem
                  ("expression must be of a one-dimensional array type",
                   Choice);
-- 
cgit v1.2.3