--- /dev/null
+puts "============"
+puts "OCC21540"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation section produces wrong result (OCC 6.3.1)
+#######################################################################
+
+set BugNumber OCC21540
+
+puts "Load first shape ..."
+restore [locate_data_file OCC21540-HalfSpace.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC21540-Shape.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 462.35
+
+set nb_v_good 58
+set nb_e_good 58
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 117
+
+
+set 2dviewer 0