* add no internal flag when folding constants in taddnode.simplify, resolves #39308

compiler/nadd.pas

@@ -788,8 +788,6 @@ implementation
                else
                  internalerror(2008022101);
              end;
-             if not forinline then
-               include(t.flags,nf_internal);
              result:=t;
              exit;
           end

tests/webtbf/tw39308.pp

@@ -0,0 +1,11 @@
+{ %fail }
+{ %opt=-Sew }
+program project1;
+var
+  a: byte;
+begin
+  a:=1;
+  if 1 > 2 then
+    a := 0;         // <= no warning
+  writeln(a);
+end.