Test suite results for test file webtbs/tw2177.pp

Test run data :

Test file "webtbs/tw2177.pp" information:

t_id 911
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939747.

Source:

{ %version=1.1 }

{ Source provided for Free Pascal Bug Report 2177 }
{ Submitted by "Rimgaudas" on  2002-10-14 }
{ e-mail: rimga@ktl.mii.lt }
{$ifdef fpc}{$mode delphi}{$endif}

uses
  SysUtils;

type
  ii= interface
  ['{616D9683-88DC-4D1C-B847-1293DDFBACF7}']
    procedure Show;stdcall;
  end;

  Twii= class(TObject, ii)
    s: string;
    function QueryInterface(const IID: TGUID; out Obj): Integer; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;

    procedure Show;stdcall;
  end;

  {________doomy interfaces______}
  function Twii.QueryInterface(const IID: TGUID; out Obj): Integer; stdcall;
  begin
    result:= -1;
  end;

  function Twii._AddRef: Integer; stdcall;
  begin
    result:= -1;
  end;

  function Twii._Release: Integer; stdcall;
  begin
    result:= -1;
  end;
  {________doomy interfaces______}


  procedure Twii.Show;stdcall;
  begin
    WriteLn(s);
  end;

var
  wii: twii;
  i: ii;

begin
  try
    wii:= Twii.create;
    wii.s:='OK';
    i:= ii(wii);
    i.Show;
  except       //excepts
    on EAccessViolation do WriteLn('Access Violation');
  else
    WriteLn('Problem');
    halt(1);
  end;
end.

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