Test suite results for test file webtbf/tw3395a.pp

Test run data :

Test file "webtbf/tw3395a.pp" information:

t_id 1404
t_adddate 2004/11/30
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %fail }

{$mode delphi}

type
   texec1 = class
     protected
       procedure execute;
     public
       constructor create;
   end;

   procedure t(p: pointer);
     begin
     end;

   constructor texec1.Create;
     begin
       // This should give an invalid typecast, because a methodpointer are 2 pointers
       t(pointer(execute));
     end;

   procedure texec1.execute;
     begin
     end;

begin
end.

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