diff --git a/tests/tbs/tb0441.pp b/tests/tbs/tb0441.pp
new file mode 100644
index 0000000000..cc984d9264
--- /dev/null
+++ b/tests/tbs/tb0441.pp
@@ -0,0 +1,10 @@
+program Test;
+operator :=(x:LongInt)RESULT:ShortString;
+  begin
+    Val(RESULT,x);
+  end;
+var
+  s:ShortString;
+begin
+  s:=12;
+end.