puts "========"
puts "0029830: Data Exchange, STEPCAFControl_Reader poor performance - quadratic dependence"
puts "========"
puts "Test on stack overflow during destructing the STEP model"

set ncomp 1000

box a 1 1 1
shape co C
for {set i 0} {$i < $ncomp} {incr i} {
  tcopy a a1
  add a1 co
}
if [info exists D] {Close D}
XNewDoc D
XAddShape D co

puts "Writing STEP model"
WriteStep D .
Close D

puts "Destructing model"
#crash
newmodel
