t_id
1345
t_adddate
2004/08/28
t_result
0
Flag
t_norun
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
458757425 | 937393 | False | True | Skipping test because for other target |
Record count: 1
{ %norun } { %target=win32 } { Source provided for Free Pascal Bug Report 3261 } { Submitted by "Andreas Hausladen" on 2004-08-18 } { e-mail: Andreas.Hausladen@gmx.de } program test; {$mode delphi} type TTest = class(TObject) public procedure myfunc(arg1: Integer; arg2: TTest); overload; procedure myfunc(arg1: TTest); overload; end; procedure TTest.myfunc(arg1: Integer; arg2: TTest); external 'test.dll' name 'TTest_myfunc'; procedure TTest.myfunc(arg1: TTest); begin if arg1 = nil then ; end; begin end.