* Fix some minor sideeffect introduced by r15729. File without "of integer" must remain working.

git-svn-id: trunk@15743 -

packages/fcl-passrc/src/pparser.pp

@@ -651,7 +651,9 @@ procedure TPasParser.ParseFileType(Element: TPasFileType);
 begin
   NextToken;
   If CurToken=tkOf then
-    Element.ElType := ParseType(nil);
+    Element.ElType := ParseType(nil)
+  else 
+   ungettoken;
 end;
 
 function TPasParser.isEndOfExp:Boolean;