Test suite results for test file test/tlibrary1.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all tests

Test file "test/tlibrary1.pp" information:

t_id 58
t_adddate 2003/10/03
t_result 0
Flag t_norun set
t_knownrunerror 0
t_opts -FE.

Detailed test run results:

Record count: 50

Total = 50

OK=0 Percentage= 0.00

Skipped=50 Percentage= 100.00

Result type Cat. Count Percentage First date Last Date
Skipping run test 50 100.0 2024/05/17 23:52:00 41 2024/05/18 01:32:00 24
i386 39 78.0 2024/05/18 00:21:00 24 2024/05/18 01:32:00 24
sparc 1 2.0 2024/05/17 23:52:00 41 2024/05/17 23:52:00 41
x86_64 6 12.0 2024/05/18 00:21:00 30 2024/05/18 01:32:00 15
powerpc64 2 4.0 2024/05/18 01:09:00 101 2024/05/18 01:11:00 108
aarch64 2 4.0 2024/05/18 00:11:00 33 2024/05/18 00:52:00 35
linux 45 90.0 2024/05/18 00:11:00 33 2024/05/18 01:32:00 24
win32 1 2.0 2024/05/18 00:21:00 24 2024/05/18 00:21:00 24
solaris 4 8.0 2024/05/17 23:52:00 41 2024/05/18 00:34:00 30
3.3.1 24 48.0 2024/05/18 00:11:00 33 2024/05/18 01:32:00 24
3.2.3 26 52.0 2024/05/17 23:52:00 41 2024/05/18 01:31:00 26

Source:

{ %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}

Link to SVN view of test/tlibrary1.pp source.