fpcsrc/tests/tbs/tb0308.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

uses
   ub0308;

  var
     r : tr;

  begin
     r.a:=x;
     if r.a=x then
       begin
          with r do
            if a=y then
              ;
       end;
  end.