main module fortcall
	fortran procedure x ( i: inout ref integer )
		i := i* 2
	endprocedure

	declare ( j : integer )
	x(j)
endmodule