Test suite results for test file webtbs/tw0869.pp

Test run data :

Test file "webtbs/tw0869.pp" information:

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

Detailed test run results:

Record count: 1

No log of 848970.

Source:

program prueba;
uses crt;
var
 i,resultado,exponente:integer;
begin
 exponente := 3;
 resultado := -1 ** exponente;
 writeln (resultado);
 if resultado<>-1 then
   Halt(1);
 exponente := 4;
 resultado := -(1 ** exponente);
 writeln (resultado);
 if resultado<>-1 then
   Halt(1);
 resultado := (-1) ** exponente;
 writeln (resultado);
 if resultado<>1 then
   Halt(1);
 i:=1;
 resultado := - i ** exponente;
 writeln (resultado);
 if resultado<>-1 then
   Halt(1);
 resultado := -1 ** exponente;
 writeln (resultado);
 if resultado<>-1 then
   Halt(1);
end.

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