fpcsrc/tests/tbf/tb0196.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %norun }
{ %fail }
{ %opt=-Sen -vn }

type
 tr = record
   x, y: longint;
 end;
 ta = array[1..10] of tr;

var
  a: ta;
  i: longint;
begin
  for i := low(a) to high(a) do
    with a[i] do
      begin
        x:=i*2;
        y:=i+5;
      end;
end.