main module eval
    use TEXTIO
    declare
	A is 
	    structure
		B : array [1..4] of 16 bit integer
	    endstructure

	C : cardinal initially sizeof (A)
	D : A
    enddeclare

    out_record (TTY)
    out_integer (TTY, integer (C))
    out_record (TTY)
    out_integer (TTY, integer (sizeof (A)))
    out_record (TTY)
    out_integer (TTY, integer (sizeof (D)))
    out_record (TTY)
endmodule