freepascal bugtracker

Index: pparser.pp
===================================================================
--- pparser.pp	(revision 21270)
+++ pparser.pp	(working copy)
@@ -206,7 +206,7 @@
     // Main scope parsing
     procedure ParseMain(var Module: TPasModule);
     procedure ParseUnit(var Module: TPasModule);
-    procedure ParseProgram(var Module: TPasModule);
+    procedure ParseProgram(var Module: TPasModule; const ProgramDeclarationPresent: boolean);
     procedure ParseUsesList(ASection: TPasSection);
     procedure ParseInterface;
     procedure ParseImplementation;
@@ -1618,9 +1618,13 @@
   NextToken;
   case CurToken of
     tkUnit: ParseUnit(Module);
-    tkProgram: ParseProgram(Module);
+    tkProgram: ParseProgram(Module, true);
     else
-      ParseExc(Format(SParserExpectTokenError, ['unit']));
+    begin
+      { it's a program without "program XXX;" declaration at the beginning }
+      UnGetToken;
+      ParseProgram(Module, false);
+    end;
   end;
 end;
 
@@ -1649,10 +1653,18 @@
 end;
 
 // Starts after the "program" token
-procedure TPasParser.ParseProgram(var Module: TPasModule);
+procedure TPasParser.ParseProgram(var Module: TPasModule; const ProgramDeclarationPresent: boolean);
+var
+  ProgramName: string;
 begin
   Module := nil;
-  Module := TPasModule(CreateElement(TPasProgram, ExpectIdentifier,
+  if ProgramDeclarationPresent then
+  begin
+    ProgramName := ExpectIdentifier;
+    NextToken; { skip semicolon }
+  end else
+    ProgramName := '';
+  Module := TPasModule(CreateElement(TPasProgram, ProgramName,
     Engine.Package));
   FCurModule:=Module;
   try
@@ -1661,7 +1673,6 @@
       Module.PackageName := Engine.Package.Name;
       Engine.Package.Modules.Add(Module);
     end;
-    NextToken;
     ParseImplementation;
   finally
     FCurModule:=nil;