module testobj2
export Sam
fortran procedure sam ()
endprocedure
endmodule