print "tst_suite/tst-my.gre ...";
$a = 0;
for ($i = 0; $i < 4; $i += 1) {
        my $a;
        $a = $i + 0.1;
}
die " failed test 1\n" if ($a != 0);
$a = 10;
if (1) {
        my $a;
        $a = 1;
        die " failed test 2\n" if ($a != 1);
        if (1) {
        my $a;
        $a = 2;
        die " failed test 3\n" if ($a != 2);
        }
        die " failed test 4\n" if ($a != 1);
        my @array;
        die " failed test 5\n" if ($#array != -1);
        $array[0] = "hello";
        die " failed test 6\n" if ($array[0] ne "hello");
}
die " failed test 7\n" if ($#array != -1);
die " failed test 8\n" if ($a != 10);
print " passed\n";