mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 12:07:58 +02:00
22 lines
455 B
ObjectPascal
22 lines
455 B
ObjectPascal
{ 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.
|