fcl-passrc: resolver: if then <empty> else ;

git-svn-id: trunk@39928 -

packages/fcl-passrc/src/pasresolver.pp

@@ -13882,6 +13882,7 @@ begin
       AddInitialFinalizationSection(TFinalizationSection(El))
     else if AClass.InheritsFrom(TPasImplBlock) then
       // resolved when finished
+    else if AClass=TPasImplCommand then
     else if AClass=TPasUnresolvedUnitRef then
       RaiseMsg(20171018121900,nCantFindUnitX,sCantFindUnitX,[AName],El)
     else

packages/fcl-passrc/tests/tcresolver.pas

@@ -340,6 +340,7 @@ type
     Procedure TestStatementsRefs;
     Procedure TestRepeatUntilNonBoolFail;
     Procedure TestWhileDoNonBoolFail;
+    Procedure TestIfThen;
     Procedure TestIfThenNonBoolFail;
     Procedure TestIfAssignMissingSemicolonFail;
     Procedure TestForLoopVarNonVarFail;
@@ -5082,6 +5083,17 @@ begin
   CheckResolverException('Boolean expected, but Longint found',nXExpectedButYFound);
 end;
 
+procedure TTestResolver.TestIfThen;
+begin
+  StartProgram(false);
+  Add([
+  'var b: boolean;',
+  'begin',
+  '  if b then ;',
+  '  if b then else ;']);
+  ParseProgram;
+end;
+
 procedure TTestResolver.TestIfThenNonBoolFail;
 begin
   StartProgram(false);