@@ -11855,11 +11855,12 @@ package body Sem_Res is
-- for the subtype, but not in the context of a loop iteration
-- scheme).
- Set_Scalar_Range (Index_Subtype, New_Copy_Tree (Drange));
- Set_Parent (Scalar_Range (Index_Subtype), Index_Subtype);
- Set_Etype (Index_Subtype, Index_Type);
- Set_Size_Info (Index_Subtype, Index_Type);
- Set_RM_Size (Index_Subtype, RM_Size (Index_Type));
+ Set_Scalar_Range (Index_Subtype, New_Copy_Tree (Drange));
+ Set_Parent (Scalar_Range (Index_Subtype), Index_Subtype);
+ Set_Etype (Index_Subtype, Index_Type);
+ Set_Size_Info (Index_Subtype, Index_Type);
+ Set_RM_Size (Index_Subtype, RM_Size (Index_Type));
+ Set_Is_Constrained (Index_Subtype);
end if;
Slice_Subtype := Create_Itype (E_Array_Subtype, N);