diff options
Diffstat (limited to 'sem_stmts.adb')
| -rw-r--r-- | sem_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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); |