1 files changed, 15 insertions, 0 deletions
diff --git a/tests/webtbs/tw38527.pp b/tests/webtbs/tw38527.pp
new file mode 100644
index 0000000000..4f50d92bc8
--- /dev/null
+++ b/tests/webtbs/tw38527.pp
@@ -0,0 +1,15 @@
+{%OPT=-O2}
+
+{$mode objfpc}
+
+function F(n: SizeUint): SizeUint;
+begin
+    result := 4 * n + 4 * n;
+end;
+
+begin
+    writeln('Reference F(5): ', 4 * 5 + 4 * 5);
+    writeln(' Actual F(5): ', F(5));
+    if (F(5) <> 40) then
+      halt(1);
+end.