t_id
1195
t_adddate
2003/11/11
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022403886 | 1027328 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2778 } { Submitted by "Michael Van Canneyt" on 2003-11-09 } { e-mail: michael.vancanneyt@wisa.be } {$mode delphi} type TMyFunc = Procedure (I : Integer = 10); Procedure MyRealFunc(I : Integer = 20); begin Writeln('Function received : ',I); if i<>10 then halt(1); end; Var M : TMyFunc; begin M:=@MyRealFunc; M; end.