- set_array_bounds(array_type, 1,
- new_Const(mode_Iu, tarval_from_long (mode_Iu, L_BOUND)),
- new_Const(mode_Iu, tarval_from_long (mode_Iu, U_BOUND)));
+ set_array_bounds(array_type, 0,
+ new_Const(mode_Iu, new_tarval_from_long (L_BOUND, mode_Iu)),
+ new_Const(mode_Iu, new_tarval_from_long (U_BOUND, mode_Iu)));