t_id
980
t_adddate
2003/10/04
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022793579 | 1027390 | True | False | Successfully run |
Record count: 1
program tb0454; { reported on fpc-devel by Jesus Reyeson 14 July 2003 } { as failing with 1.1 } {$mode objfpc} var a,b: integer; c,d,e,f: boolean; function Ok: boolean; begin result := ( a = b ) and c = d and e = f; end; var r: boolean; begin a := 1; b := 2; c := false; d := true; e := false; f := true; r := Ok; if not r then begin writeln('error, result should be true'); halt(1); end; end.