print "tst_suite/tst-last.gre ...";
$j = 0;
while ($j < 5) {
$i = 0;
while ($i < 5) {
last if ($i >= 3);
$i += 1;
}
$j += 1;
last if ($j >= 2);
}
die " failed test 1\n" if ($i != 3 || $j != 2);
$j = 0;
$sum = 0;
while ($j < 5) {
$j++;
next if ($j>2);
$sum++;
}
die " failed test 2 (sum=$sum but should be 2)\n" if ($sum != 2);
print " passed\n";