main module diag32
procedure diag32
    param
	A :  ref 16 bit integer
    endparam
endprocedure

declare
   B : static 32 bit integer
enddeclare

diag32 (B)
endmodule