Test suite results for test file webtbs/tw2481.pp

Test run data :

Test file "webtbs/tw2481.pp" information:

t_id 1178
t_adddate 2003/11/01
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939778.

Source:

{ Source provided for Free Pascal Bug Report 2481 }
{ Submitted by "Eero Tanskanen" on  2003-05-04 }
{ e-mail: yendor@nic.fi }

{$mode objfpc}

Type
  TMoo = Class

    A : Real;
    Constructor Init;

  End;

Var
  Moo : TMoo;

  Operator := (V : Real) B : TMoo;
  Begin

    B.A := V;

  End;

Constructor TMoo.Init;
Begin

  A := 0;

End;

Begin

  Moo := TMoo.Init;
  Moo := 0.2;

End.

Link to SVN view of webtbs/tw2481.pp source.