blob: f3ed64644f5bf819d17d0fb3bfa1a95e131dfce2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ 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.
|
