Test suite results for test file tbs/tb0209.pp

Test run data :

Test file "tbs/tb0209.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0247.pp }
{ var with initial value not supprted (Delphi var x : integer = 5;) allowed in -Sd mode OK 0.99.11 (PM) }

{$mode delphi}

var
 x : integer = 34;
{ this is the way Delphi creates initialized vars
  ++ its much more logical then BP
  typed const !!
  -- its incompatible with BP !! (PM) }

 y : array[0..2] of real = (0.0,1.23,2.56);

{ these are true const in Delphi mode and thus
  it should not be possible to change ! }

const
 z : real = 45.2;

begin
 y[2]:=z;
 { this should be refused ! }
 z:=y[1];
end.

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