Test suite results for test file tbs/tb0178.pp

Test run data :

Test file "tbs/tb0178.pp" information:

t_id 414
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939748.

Source:

{ Old file: tbs0212.pp }
{ problem with properties                              OK 0.99.11 (PFV) }

program proptest;

{$mode objfpc}

type
  TMyRec = record
    Int: Integer;
    Str: String;
  end;

  TMyClass = class
  private
    FMyRec: TMyRec;
  public
    property AnInt: Integer read FMyRec.Int;
    property AStr: String read FMyRec.Str;
  end;

begin
end.

Link to SVN view of tbs/tb0178.pp source.