puts "============"
puts "CR23416"
puts "============"
puts ""
#######################################################################
# Regression of current version in compare with occt-653: crash while visualizing the shape
#######################################################################

isos 2
smallview
set info [restore [locate_data_file CR23416-ProblemFace.brep] result]
set check_error [lsearch $info exception]
if { $check_error != -1 } {
    puts "Error : crashes during visualization"
}
fit
set only_xwd 1