fpcsrc/tests/webtbs/tw10831.pp


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

{$mode objfpc}
program test;

type
  TForm = class(TInterfacedObject)
    a : array[0..1000000] of byte;
  end;

  TMyForm = class(TForm, IInterface)
  end;

var
  i : IInterface;
begin
  i:=TMyForm.Create;
end.