puts "============"
puts "OCC25537: XmlMPrsStd_PositionDriver::Paste runtime check c r a s h."
puts "============"
puts ""

pload XDEDRAW

NewDocument Doc XmlXCAF

# number that takes 24 symbols in %.17g string
set aBigNum -0.0000000000123456789123456789

# Create TDataXtd_Position and XCAFDoc_Centroid attributes (same problem in writing XML)
# 100 labels to have a stable exception (memory corruption)
for {set i 1} {$i < 100} {incr i} {
  set aLab1 0:1:$i
  SetPosition Doc $aLab1 $aBigNum $aBigNum $aBigNum
  set aLab2 0:2:$i
  Label Doc $aLab2
  XSetCentroid Doc $aLab2 $aBigNum $aBigNum $aBigNum
}

set aTmpFile ${imagedir}/${casename}.xml
SaveAs Doc ${aTmpFile}

## ==> No exception
Close Doc
file delete -force $aTmpFile
