diff --git a/tests/bugs/modalg_6/bug23138 b/tests/bugs/modalg_6/bug23138
new file mode 100644
index 0000000000..29feed63a2
--- /dev/null
+++ b/tests/bugs/modalg_6/bug23138
@@ -0,0 +1,16 @@
+puts "=========="
+puts "OCC23138"
+puts "=========="
+puts ""
+###########################################
+# BRepAlgoAPI_Fuse produce invalid result
+###########################################
+
+restore [locate_data_file bug23138_body.brep] b
+restore [locate_data_file bug23138_thread.brep] t
+
+bop b t
+bopfuse result
+
+set square 23233.2
+set 2dviewer 1