Test suite results for test file webtbs/tw1104.pp

Test run data :

Test file "webtbs/tw1104.pp" information:

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

Detailed test run results:

Record count: 1

No log of 948301.

Source:

var
  r1,r2 : extended;
  code : integer;
begin
  val('.',r1,code);
  if r1<>0.0 then
   writeln('error with val(".")');
  val('.E',r2,code);
  if r2<>0.0 then
   writeln('error with val(".E")');
  if (r1<>0.0) or (r2<>0.0) then
   halt(1);
end.

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