TFile memory leak?

Hello ROOTers,

This question may be a very basic one but I could not find similar questions on the web.

http://slac.stanford.edu/~oxon/tmp.tgz

This tgz file includes a .root file and a very simple script which opens TFile 10000 times. When I execute the script,

root [0] .x test.C

the memory usage of the process becomes more than 1 GB while all TFile instances are closed.

The .root file was created via TPad::SaveAs, as follows.

root [0] TCanvas can("can", "can")
root [1] TH2D* h = new TH2D("h", "h", 100, -3, 3, 100, -3, 3)
root [2] h->FillRandom("gaus", 1000000)
root [3] h->Draw()
root [4] can.SaveAs("aho.root")

How can I suppress this large memory consumption? I am not sure if this is an intended behavior or memory leak.

I am using svn trunk on Snow Leopard and SL 5.

Regards,

--
OKUMURA, Akira oxon@{astro.isas.jaxa.jp,stanford.edu}
Institute of Space and Astronautical Science (ISAS/JAXA)
Now at KIPAC/SLAC/Stanford
Varian Physics #306
382 Via Pueblo Mall, MC 406 Stanford, CA94305
TEL 650-736-0971/FAX 650-724-5065
Skype : okumura.akira