Main Module reftest Procedure A ( A : inout ref 8 bit integer ) EndProcedure Procedure B ( B : in ref integer ) A ( B ) EndProcedure EndModule