Dear friends,
I don't know if what I found is a bug or a correct behaviour I don't
understand.
The following program halts with error 'attempt ro read past end of file';
program test;
var
f : file of char;
begin
rewrite(f,'test.dat');
seek(f,0);
f^:='x'; (*GIVES ERROR HERE*)
put(f);
close(f);
end.
If I just insert a call reading eof(f) everything seems to work:
program test;
var
f : file of char;
begin
rewrite(f,'test.dat');
seek(f,0);
if eof(f) then ; (* do nothing *)
f^:='x';
put(f);
close(f);
end.
I am puzzled!
(working with gpc 20030830)
Ciao,
Francesco