diff --git a/TestSuite/interface6.pas b/TestSuite/interface6.pas
index 41e0bf308..cdc36bbdd 100644
--- a/TestSuite/interface6.pas
+++ b/TestSuite/interface6.pas
@@ -12,6 +12,7 @@
 procedure p1<T>(o: T); where T: I1;
 begin
   assert(o.GetHashCode(5) = 5);
+  assert(o.GetHashCode() = o.GetHashCode());
 end;
 
 begin