main module calltest

	function addr_of ( i : inout ref general )
		returns j : integer
		declare
			address is pointer  integer
		enddeclare
		j := integer ( address (i) )
	endfunction


	declare
		i : static integer
		b : static 8 bit integer
		ii : integer
	enddeclare


	i := addr_of (i)
	i := addr_of (b)
	i := addr_of (ii)
endmodule