fpcsrc/tests/test/terecs5.pp


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

{ %fail}
{ %norun}
program terecs5;

{$mode delphi}

type
  TFoo = record
    class procedure Test; // not allowed without static
  end;

class procedure TFoo.Test;
begin
end;

begin
end.