puts "========="
puts "CR23699"
puts "========="
puts ""
###############################
## Exception raised during intersection between two surfaces
###############################

restore [locate_data_file bug23699_Compound_sigsegv.brep] b1

explode b1 f

mksurface s1 b1_1
mksurface s2 b1_2

intersect result s1 s2

checkview -display result -2d -path ${imagedir}/${test_image}.png
