freepascal.compiler/tests/tbf/tb0197.pp

{ %norun }
{ %fail }
{ %opt=-Sew }

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;
        y:=i+5;
      end;
end.