diff --git a/tests/bugs/modalg_7/bug28388_1 b/tests/bugs/modalg_7/bug28388_1
new file mode 100644
index 0000000000..f77ceca6e1
--- /dev/null
+++ b/tests/bugs/modalg_7/bug28388_1
@@ -0,0 +1,31 @@
+puts "========"
+puts "OCC28388"
+puts "========"
+puts ""
+####################################################################
+# Boolean common of simple face and solid results in empty compound
+####################################################################
+
+restore [locate_data_file bug28388_extKO.brep] e
+
+explode e
+whatis e_1
+whatis e_2
+tolerance e_1
+tolerance e_2
+checkshape e_1
+checkshape e_2
+bopcheck e_1
+bopcheck e_2
+bopargcheck e_1 e_2 -O #F
+
+bop e_1 e_2
+bopcommon r
+
+whatis r
+explode r
+checkshape r_1
+nbshapes r_1
+
+checkview -display r_1 -2d -path ${imagedir}/${test_image}-2d.png
+checkview -display r_1 -3d -path ${imagedir}/${test_image}-3d.png
diff --git a/tests/bugs/modalg_7/bug28388_2 b/tests/bugs/modalg_7/bug28388_2
new file mode 100644
index 0000000000..3ecd27798c
--- /dev/null
+++ b/tests/bugs/modalg_7/bug28388_2
@@ -0,0 +1,31 @@
+puts "========"
+puts "OCC28388"
+puts "========"
+puts ""
+####################################################################
+# Boolean common of simple face and solid results in empty compound
+####################################################################
+
+restore [locate_data_file bug28388_extOK.brep] e
+
+explode e
+whatis e_1
+whatis e_2
+tolerance e_1
+tolerance e_2
+checkshape e_1
+checkshape e_2
+bopcheck e_1
+bopcheck e_2
+bopargcheck e_1 e_2 -O #F
+
+bop e_1 e_2
+bopcommon r
+
+whatis r
+explode r
+checkshape r_1
+nbshapes r_1
+
+checkview -display r_1 -2d -path ${imagedir}/${test_image}-2d.png
+checkview -display r_1 -3d -path ${imagedir}/${test_image}-3d.png