Test suite results for test file webtbf/tw2285.pp

Test run data :

Test file "webtbf/tw2285.pp" information:

t_id 1119
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934960.

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 2285 }
{ Submitted by "Sergey Kosarevsky" on  2002-12-25 }
{ e-mail: netsurfer@au.ru }
Type CLASS_CONSTRUCTOR=Function(Param:String):Boolean Of Object;

Type tObject=Object
        Constructor Init(Param:String);
     End;

var
  a,b : longint;

Constructor tObject.Init(Param:String);
Begin
End;

Procedure CheckConstructor(C:CLASS_CONSTRUCTOR);
Begin
   a:=Longint(Pointer(C));
   WriteLn('a: ',a);
End;

Begin
   { This should fail, @tobject.init returns a pointer and
     is not compatible with a methodpointer }
   CheckConstructor(@tObject.Init);
   b:=Longint(Pointer(@tObject.Init));
   WriteLn('b: ',b);
   if a<>b then
    begin
      writeln('Error!');
      halt(1);
    end;  
End.

Link to SVN view of webtbf/tw2285.pp source.