Test suite results for test file webtbs/tw3216.pp

Test run data :

Run ID:
Operating system: linux
Processor: powerpc64
Version: 3.2.3
Fails/OK/Total: 103/7866/7969
Version: 3.2.3
Full version: 3.2.3-1374-g849fbd722c-unpushed
Comment: -gwlttt -CriotR -O4 -Fl/usr/lib/gcc/powerpc64-linux-gnu/13 -Fd
Machine: gcc203
Category: 1
SVN revisions: fdf93c5b29:849fbd722c:ae0fe8a6a0:d1c29e6cb9
Submitter: pierre
Date: 2024/04/19 10:33:00 <> 2024/04/10
Previous run: 933756
Next run: 936174

Hide skipped tests

Hide successful tests

Test file "webtbs/tw3216.pp" information:

t_id 1323
t_adddate 2004/08/08
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
443584578934951TrueFalseSuccessfully run

Record count: 1

No log of 934951.

Source:

{ Source provided for Free Pascal Bug Report 3216 }
{ Submitted by "Mark Honman" on  2004-07-17 }
{ e-mail: wania_mark@yahoo.co.uk }
program OLEVariantPropertyBug;

{$mode objfpc}{$H+}

uses
  Classes;

type TShowProblem = class
    function GetValue(Index : integer) : OleVariant; stdcall;
    property IWontCompile[Index : integer] : OleVariant read GetValue;
  end;

{ Note :
  if any of the following is changed, the problem disappears
    * make it a scalar (non-indexed) property
    * remove the stdcall directive
    * change the type of the property to something else
  although quite obscure, it would be very useful to have this fixed as it will
  greatly assist in interfacing to external OLE objects - in this case the ADO
  library for access to MS SQL Server.

  Identified with FPC 1.9.3 on Windows ME.
}

function TShowProblem.GetValue(Index : integer) : OleVariant; stdcall;
begin
end;

begin

end.

Link to SVN view of webtbs/tw3216.pp source.