diff --git a/.gitattributes b/.gitattributes
index c935298f81..d0c729efbb 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -9206,6 +9206,7 @@ tests/test/tenumerators1.pp svneol=native#text/pascal
 tests/test/terecs1.pp svneol=native#text/pascal
 tests/test/terecs2.pp svneol=native#text/pascal
 tests/test/terecs3.pp svneol=native#text/pascal
+tests/test/terecs4.pp svneol=native#text/pascal
 tests/test/terecs_u1.pp svneol=native#text/pascal
 tests/test/testcmem.pp svneol=native#text/plain
 tests/test/testda1.pp svneol=native#text/plain
diff --git a/tests/test/terecs4.pp b/tests/test/terecs4.pp
new file mode 100644
index 0000000000..20860d741a
--- /dev/null
+++ b/tests/test/terecs4.pp
@@ -0,0 +1,17 @@
+{ %fail}
+{ %norun}
+program terecs4;
+
+{$mode delphi}
+
+type
+  TFoo = record
+    destructor Destroy; // not allowed
+  end;
+
+destructor TFoo.Destroy;
+begin
+end;
+
+begin
+end.