fpcsrc/tests/tbs/tb0484.pp


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

type
  r1 = record
    p : procedure stdcall;
    i : longint;
  end;

  r2 = record
    p : procedure;
    i : longint;
  end;

  r3 = record
    p : procedure
  end;

  { ugly, but should work (FK) }
  r4 = record
    p : procedure stdcall
  end;

begin
end.