diff --git a/tests/tbs/tb0383.pp b/tests/tbs/tb0383.pp
new file mode 100644
index 0000000000..7f408fde3b
--- /dev/null
+++ b/tests/tbs/tb0383.pp
@@ -0,0 +1,14 @@
+type
+  enum1 = (one,two,three);
+  enum2 = (een,twee,drie);
+
+procedure p1(e:enum1);
+begin
+end;
+
+var
+  e2 : enum2;
+begin
+  e2:=een;
+  p1(enum1(e2));
+end.