main module const
    use TEXTIO
    declare
	Low_bound = cardinal (1)
	High_bound = cardinal (10)
	Array_bounds is cardinal range low_bound..high_bound
	array_type is array [array_bounds] of cardinal
	My_array: static array_type initially array_type ([Low_bound]:3)
    enddeclare

    out_integer (TTY, integer (My_array [Low_bound]))
    out_record (TTY)
endmodule