Test suite results for test file tbf/tb0149.pp

Test run data :

Test file "tbf/tb0149.pp" information:

t_id 673
t_version 1.1
t_adddate 2003/10/03
t_result 0
Flag t_fail set
t_knownrunerror 0
t_opts -Sew -vw

Detailed test run results:

Record count: 1

No log of 948100.

Source:

{ %VERSION=1.1 }
{ %FAIL }
{ %OPT=-Sew -vw }

uses ub0149;

  
  
procedure testdef1(b: tdefinition);
begin
  b:=12;
end;


type
  tdefinition = 1..10;
  
procedure testdef2(b : tdefinition);
begin
  b:=10;
end;


Begin
  testdef1(0);
  testdef2(0);
end.

Link to SVN view of tbf/tb0149.pp source.