puts "========"
puts "OCC26016"
puts "========"
puts ""
##@@###########################
# BRepPrimAPI_MakeRevol crash
###############################

smallview

restore [locate_data_file OCC26016-revolve-crash.brep] a
revol r a 0 0 0 0 1 0 90
set bug_info [checkshape r]

if {[string compare $bug_info "This shape seems to be valid"] != 0} {
  puts "ERROR: OCC26016 is reproduced"
}

donly r
fit
set only_screen_axo 1