puts "========"
puts "OCC22611"
puts "========"
puts ""
#######################################################################
# Memory leak in expression interpreter
#######################################################################

pload QAcommands

set BugNumber OCC22611
set listmem {}

for {set i 1} {$i < 10} {incr i} {
    OCC22611 "0.1214343" 10

    lappend listmem [meminfo h]
    checktrend $listmem 0 1 "Memory leak detected"
}