main module TESTFORT

fortran procedure JOE
	param
		A : optional inout ref general
	endparam
endprocedure

JOE ()
endmodule