* wrong note

tests/tbs/tbs0339.pp

@@ -0,0 +1,20 @@
+{ $OPT=-Sen }
+type
+  rec=record
+    x,y : longint;
+  end;
+var
+  r : array[1..10] of rec;
+  i : longint;
+begin
+  i:=1;
+  with r[i] do
+   begin
+     x:=1;
+     y:=1;
+   end;
+  with r[i] do
+   begin
+     writeln(x,y);
+   end;
+end.