t_id
59
t_adddate
2003/10/03
t_result
0
Flag
t_needlibrary
set
t_knownrunerror
0
t_opts
-Fl.
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524370291 | 948005 | False | False | Failed to run |
Record count: 1
Runtime error 202 at $0000000100443B94 $0000000100443B94 $000000010041C404 $00000001000A04C0 $00000001000DB464 $00000001000A03FC $00000001000A0460 $00000001001B508C $787F800000000000
{ %OPT=-Fl. } { %NEEDLIBRARY } { Test program to test linking to fpc library } {$ifdef win32} {$define supported} {$endif win32} {$ifdef Unix} {$define supported} {$endif Unix} {$ifndef fpc} {$define supported} {$endif} {$ifdef supported} const {$ifdef win32} libname='tlibrary1.dll'; {$else} libname='libtlibrary1.so'; {$endif} procedure test;external libname name 'TestName'; begin test; end. {$else not supported} begin Writeln('Dummy test because target does not support libraries'); end. {$endif not supported}