mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-13 08:41:37 +01:00
19 lines
239 B
ObjectPascal
19 lines
239 B
ObjectPascal
var
|
|
f:file;
|
|
p:pointer;
|
|
i : integer;
|
|
begin
|
|
|
|
Assign(f,'blockwritetest.tmp');
|
|
{$I-}
|
|
Rewrite(f,1);
|
|
p:=nil;
|
|
BlockWrite(f,p^,12345);
|
|
Close(f);
|
|
{$I+}
|
|
i:=ioresult;
|
|
writeln('IOResult: ',i);
|
|
if i=101 then
|
|
halt(1);
|
|
end.
|