mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 03:28:40 +02:00
22 lines
310 B
ObjectPascal
22 lines
310 B
ObjectPascal
{%skiptarget=wince,os2,emx}
|
|
{%delfiles=blockwritetest.tmp}
|
|
var
|
|
f:file;
|
|
p:pointer;
|
|
i : integer;
|
|
begin
|
|
|
|
Assign(f,'blockwritetest.tmp');
|
|
{$I-}
|
|
Rewrite(f,1);
|
|
p:=nil;
|
|
BlockWrite(f,p^,12345);
|
|
Close(f);
|
|
Erase(f);
|
|
{$I+}
|
|
i:=ioresult;
|
|
writeln('IOResult: ',i);
|
|
if i=101 then
|
|
halt(1);
|
|
end.
|