diff --git a/tests/concepts/tintypesection.nim b/tests/concepts/tintypesection.nim
index 92af7ebb54..363133faf4 100644
--- a/tests/concepts/tintypesection.nim
+++ b/tests/concepts/tintypesection.nim
@@ -20,3 +20,13 @@ block: # issue #22839
     var y: Node[NotComparable])
   proc `<`(a, b: NotComparable): bool = false
   var z: Node[NotComparable]
+
+
+block: # bug #24040
+  type
+    Xable = concept
+      proc x(y: Self): int
+    A[T: Xable] = tuple
+      foo: T
+    B[T: Xable] = object
+      a: A[T]