main module testsize

use	TEXTIO


declare
    a is
	[a0
	,a1
	]

    b is
	[b0
	,b1
	,b2
	,b3
	]

enddeclare

out_string (tty, "Size of A is ")
out_integer (tty, integer(sizeof(a)))
out_record (tty)

out_string (tty, "Size of B is ")
out_integer (tty, integer(sizeof(B)))
out_record (tty)

endmodule