diff --git a/compiler/optloop.pas b/compiler/optloop.pas
index 2f312aed24..fea2b42ca9 100644
--- a/compiler/optloop.pas
+++ b/compiler/optloop.pas
@@ -87,6 +87,7 @@ unit optloop;
               internalerror(2012090402);
             n.free;
             n:=cordconstnode.create(preplaceinfo(arg)^.value,preplaceinfo(arg)^.node.resultdef,false);
+            do_firstpass(n);
           end;
         result:=fen_false;
       end;
@@ -185,6 +186,7 @@ unit optloop;
                     { create block statement }
                     result:=internalstatements(newforstatement);
                     addstatement(newforstatement,unrollblock);
+                    doinlinesimplify(result);
                   end;
               end
             else