Test suite results for test file webtbs/tw1430.pp

Test run data :

Test file "webtbs/tw1430.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940917.

Source:

{ Source provided for Free Pascal Bug Report 1430 }
{ Submitted by "Keith R. Bolson" on  2001-03-07 }
{ e-mail: krbolson@visi.com }
PROGRAM fpc1;


PROCEDURE DoType( b :BOOLEAN; t,f: STRING);
BEGIN
  IF b THEN writeln(t) ELSE writeln(f);
  if b then
    halt(1);
END;

VAR
  ax, ay: Char;

BEGIN
  ax := 'X';  ay := 'Y';
  DoType( ( ([ax, ay] * ['A','C','D']) <> []), 'yes', 'no');
END.

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