diff --git a/tests/bugs/modalg_6/bug23666 b/tests/bugs/modalg_6/bug23666
new file mode 100755
index 0000000000..cb365dab40
--- /dev/null
+++ b/tests/bugs/modalg_6/bug23666
@@ -0,0 +1,35 @@
+puts "============"
+puts "OCC23666"
+puts "============"
+puts ""
+###############################
+##  Wrong section curve between attached faces
+###############################
+
+restore [locate_data_file bug23666_b1.brep] b1
+restore [locate_data_file bug23666_b2.brep] b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+bbuild result
+
+checkprops result -s 1.21915e+08
+
+set nbshapes_expected "
+Number of shapes in shape
+ VERTEX    : 10
+ EDGE      : 13
+ WIRE      : 4
+ FACE      : 4
+ SHELL     : 0
+ SOLID     : 0
+ COMPSOLID : 0
+ COMPOUND  : 1
+ SHAPE     : 32
+"
+checknbshapes result -ref ${nbshapes_expected} -t -m "result done by General Fuse algorithm"
+
+set 3dviewer 1