--disable_abort_on_error

SELECT 'Starting main test' AS "";

# Sourcing of a file within while loop.
#     include/ml031.inc sources include/ml0311.inc
# harmless until $num exceeds 8
let $num= 9;
while ($num)
{
   SELECT 'In loop' AS "";
   --source include/ml031.inc
   dec $num;
}

SELECT 'Leaving main test' AS "";