mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 10:49:26 +02:00
18 lines
302 B
ObjectPascal
18 lines
302 B
ObjectPascal
{ %FAIL }
|
|
|
|
var
|
|
dat : file;
|
|
j : longint;
|
|
Buffer : Array[0..2047] of byte;
|
|
|
|
begin
|
|
for j:=0 to 2047 do
|
|
Buffer[j]:=j and $ff;
|
|
Assign(dat,'tbug896.tmp');
|
|
Rewrite(dat,1);
|
|
for j:= 0 to 2047 do
|
|
{ write should not be allowed for untyped files }
|
|
write (dat,Buffer[j]);
|
|
Close(dat);
|
|
end.
|