t_id
58
t_adddate
2003/10/03
t_result
0
Flag
t_norun
set
t_knownrunerror
0
t_opts
-FE.
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525743913 | 948237 | False | True | Skipping run test |
Record count: 1
{ %OPT=-FE. } { %NORUN } { The .so of the library needs to be in the current dir when testing the loading at runtime } {$ifdef win32} {$define supported} {$define supportidx} {$endif win32} {$ifdef Unix} {$define supported} {$endif Unix} {$ifndef fpc} {$define supported} {$endif} {$ifdef supported} library bug; const publicname='TestName'; publicindex = 1234; procedure Test;export; begin writeln('Hoi'); end; exports Test name publicname; {$ifdef supportidx} exports Test index publicindex; {$endif} begin end. {$else supported} begin Writeln('No library for that target'); end. {$endif supported}