fpcsrc/tests/tbs/ub0069.pp


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

{ Old file: tbs0077b.pp }
{  used by unit tbs0077.pp }

unit ub0069;

  interface

    var
       a : longint;
       b : longint absolute a;

  implementation

end.