fpcsrc/tests/test/terecs4.pp


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

{ %fail}
{ %norun}
program terecs4;

{$mode delphi}

type
  TFoo = record
    destructor Destroy; // not allowed
  end;

destructor TFoo.Destroy;
begin
end;

begin
end.