main module P1
    procedure LEVEL_1
	param
	    I	: OUT REF integer
	endparam

	    I	*= + 100
    endprocedure

    declare
	I1  : static integer initially 1
    enddeclare

    LEvel_1 (I1)
endmodule