fpcsrc/tests/tbf/tb0078.pp


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

{ %FAIL }
{ Old file: tbf0355.pp }
{  }

{ $version >= 1.1}
type
   ti = interface
      destructor destroy;
   end;

begin
end.