t_id
1075
t_adddate
2003/10/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523511824 | 947864 | False | True | Skipping test run because it is a unit |
Record count: 1
{ Source provided for Free Pascal Bug Report 2713 } { Submitted by "Wiktor Sywula" on 2003-10-05 } { e-mail: wswiktor@poczta.fm } UNIT tw2713; {$MODE OBJFPC} INTERFACE type trek=record a,b,c:word; end; procedure rek(var r:trek; a,b,c:word); function rek(a,b,c:word):trek; IMPLEMENTATION procedure rek(var r:trek; a,b,c:word); begin r.a:=a; r.b:=b; r.c:=c; end; function rek(a,b,c:word):trek; begin rek(rek,a,b,c); end; END.