main module FORBUG
    use TEXTIO

    declare
	A_type is 8 bit cardinal range 0..127
	B_type is A_type range 1..10
	A : static A_type
	B : static B_type
    enddeclare

    for I in B_type do
	out_string (TTY, "I = ")
	out_integer (TTY, integer (I))
	out_record (TTY)
    endfor
endmodule