Test suite results for test file webtbs/tw1634.pp

Test run data :

Test file "webtbs/tw1634.pp" information:

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

Detailed test run results:

Record count: 1

No log of 749205.

Source:

{ Source provided for Free Pascal Bug Report 1634 }
{ Submitted by "Igor Grigoriev" on  2001-10-06 }
{ e-mail: igor@sch57.msk.ru }
{$DEFINE A}
program test;

{$IFNDEF A}
  procedure p1;
  begin
   (*{$IFDEF B}  {$ENDIF}*)
  end;
{$ENDIF}

BEGIN
END.

// The above program gives error:
// test.pas(13) Fatal: Unexpected end of file
// But comment line changed to:
// (* {$IFDEF B}  {$ENDIF}*)
//   ( space after '(*' added )
//gives successful compilation.

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