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 |
---|---|---|---|---|
481378652 | 941048 | False | False | Failed to run |
Record count: 1
Runtime error 202 at $0000000104D07B94 $0000000104D07B94 $0000000104CE0404 $0000000104A684C0 $0000000104AA3464 $0000000104A683FC $0000000104A68460 $0000000104E7108C $3874800000000000
{ %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}