main module TESTFORT

fortran procedure JOE
	param
		A : optional inout ref general initially force general (0)
	endparam
endprocedure

JOE ()
endmodule