Test suite results for test file tbs/tb0181.pp

Test run data :

Test file "tbs/tb0181.pp" information:

t_id 416
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0
t_opts -St

Detailed test run results:

Record count: 1

No log of 1015618.

Source:

{ %OPT=-St }

{ Old file: tbs0214.pp }
{ bugs for static methods                               OK 0.99.11 (PM) }

Program SttcTest;
{ Note: I've cut a lot out of this program, it did originally have
        constructors, destructors and instanced objects, but this
        is the minimum required to produce the problem, and I think
        that this should work, unless I've misunderstood the use of
        the static keyword. }
Type
   TObjectType1 = Object
      Procedure Setup; static;
      Procedure Weird; static;
   End;

Procedure TObjectType1.Setup;
   Begin
   End;

Procedure TObjectType1.Weird;
   Begin
   End;

Begin
   TObjectType1.Setup;
   TObjectType1.Weird;
   TObjectType1.Weird; // GPFs before exiting "Weird"
   Writeln('THE END.');
End.

Link to SVN view of tbs/tb0181.pp source.