* fix #41581 based on a patch by rasberryrabbit

compiler/ncal.pas

@@ -5772,6 +5772,7 @@ implementation
             inlineblock.free;
             inlineblock := nil;
             result:=n;
+            node_reset_flags(result,[],[tnf_pass1_done]);
           end;
 
 {$ifdef DEBUGINLINE}

tests/webtbs/tw41581.pp

@@ -0,0 +1,15 @@
+{$mode objfpc}
+program project1;
+uses
+  Math;
+
+function Calc: Double; inline;
+begin
+  Result := Power(10, Floor(Log10(0.01)));
+end;
+
+begin
+  writeln(Calc);
+  if (Calc>0.0100001) or (Calc<0.0099999) then
+    halt(1);
+end.