diff --git a/tests/bugs/modalg_5/bug23122 b/tests/bugs/modalg_5/bug23122
new file mode 100644
index 0000000000..1f5696c348
--- /dev/null
+++ b/tests/bugs/modalg_5/bug23122
@@ -0,0 +1,17 @@
+puts "============"
+puts "OCC23122"
+puts "============"
+puts ""
+######################################################
+# Operation "cut" crashes on attached shapes
+######################################################
+
+restore [locate_data_file bug23122_ExtTor.brep] s1
+restore [locate_data_file bug23122_IntTor.brep] s2
+
+bcut result s1 s2
+
+set square 6962.25
+set 2dviewer 0
+
+