blob: 59be1a803eec71321d799f9cc4003bc93663a459 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %FAIL }
var
dat : file of byte;
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
{ writeln should not be allowed for typed files }
writeln (dat,Buffer[j]);
Close(dat);
Erase(dat);
end.
|
