t_id
903
t_cpu
i386
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-Or
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949666368 | 1015615 | True | False | Successfully run |
Record count: 1
{ %OPT=-Or } { %CPU=i386 } { m68k compiler does not recognize -Or option } { Source provided for Free Pascal Bug Report 2110 } { Submitted by "Alex" on 2002-09-05 } { e-mail: bjer@freemail.hu } program BugReport; {$mode objfpc} type tsmallarray = array[0..3] of byte; function Y32(Value: Longint): Longint; var t1: array[1..4] of Byte absolute Value; t2: array[1..4] of Byte absolute Result; begin t2[1] := t1[4]; t2[2] := t1[3]; t2[3] := t1[2]; t2[4] := t1[1]; end; function Y3210(Value : longint) : tsmallarray; var l : longint; begin l:=value; Y3210[0]:=0; Y3210[1]:=1; Y3210[2]:=2; Y3210[3]:=3; end; Var l : longint; smallarray : tsmallarray; BEGIN l:=$12345678; if Y32(l) <> $78563412 then Begin WriteLn('Error!'); Halt(1); End; smallarray:=Y3210(l); if (smallarray[0] <> 0) or (smallarray[1] <> 1) or (smallarray[2] <> 2) or (smallarray[3] <> 3) then Begin WriteLn('Error!'); Halt(1); end; WriteLn('Ok!'); END.