blob: f0a37afbc78d15ad29c6a8913a395f261d207c79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %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);
Erase(dat);
end.
|
