mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 23:23:44 +02:00
34 lines
634 B
ObjectPascal
34 lines
634 B
ObjectPascal
{ show a problem with IOCHECK !!
|
|
inside reset(file)
|
|
we call reset(file,longint)
|
|
but we also emit a call to iocheck after and this is wrong !! PM }
|
|
|
|
program getret;
|
|
|
|
uses dos;
|
|
|
|
var
|
|
ppfile : file;
|
|
|
|
begin
|
|
assign(ppfile,'this_file_probably_does_not_exist&~"#');
|
|
{$I-}
|
|
reset(ppfile,1);
|
|
if ioresult=0 then
|
|
begin
|
|
{$I+}
|
|
close(ppfile);
|
|
end
|
|
else
|
|
writeln('the file does not exist') ;
|
|
{$I-}
|
|
reset(ppfile);
|
|
if ioresult=0 then
|
|
begin
|
|
{$I+}
|
|
close(ppfile);
|
|
end
|
|
else
|
|
writeln('the file does not exist') ;
|
|
end.
|