Test suite results for test file tbs/tb0014.pp

Test run data :

Test file "tbs/tb0014.pp" information:

t_id 274
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0017.pp }
{  }

const
      nextoptpass : longint = 0;
  procedure init;

    const
       endofparas : boolean = false;

    procedure getparastring;

      procedure nextopt;

        begin
           endofparas:=true;
           getparastring;
           inc(nextoptpass);
           init;
        end;

      begin
       if not endofparas then
         nextopt;
      end;

    begin
         getparastring;
    end;

begin
   init;
   if nextoptpass<>1 then Halt(1);
end.

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