[fpc-pascal]filesize

[Adam Naumowicz]

Hello,

I've just found out, to my horror, that a tiny program like here:

program tester;

var f:file of char;

begin
   assign(f,'testfile');
   reset(f);
   writeln(FileSize(f));
   close(f);
end.

raises error #5 (File access denied) on FileSize when the owner of 'testfile'
is different from the caller but the caller has read permision for it.
The same appears when I use 1.0.6 [2002/05/23] on Linux and 1.0.6
[2002/04/29] on Solaris. Is it already reported (and corrected, hopefuly)?

Best regards,
Adam Naumowicz

--------------------------------------
WWW: http://math.uwb.edu.pl/~adamn/
--------------------------------------