tests/test/tdefault7.pp


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

{ %FAIL }

{ In non-Delphi modes unsupported types like TextFile are not allowed inside
  records and objects - case 2 }
program tdefault7;

type
  TTestObject = object
    f: TextFile;
  end;

var
  tobj: TTestObject;
begin
  tobj := Default(TTestObject);
end.