main module opoutref

    declare
	BIG_Joe is structure
	    B : array [1..100] of integer
	    A : integer
	endstructure
    enddeclare
    procedure OPOUTREF
	param
	    Big : optional inOUT REF BIG_JOE
        endparam
	Big . A := 7
    endprocedure

    OPOUTREF ()
endmodule