main module TESTSIZE
	use TEXTIO
	declare
	    I	: 16 bit cardinal
	enddeclare

	I := sizeof ("ABCDEFGH")
	out_integer (TTY, integer(I))
	out_record  (TTY)
endmodule