Added list comprehension test.

Spec: https://github.com/perl6/specs/blob/master/S04-control.pod#loop-statements

S04-statements/for.t

@@ -4,7 +4,7 @@ use MONKEY_TYPING;
 
 use Test;
 
-plan 80;
+plan 81;
 
 =begin description
 
@@ -453,6 +453,12 @@ eval_dies_ok('for(0..5) { }','keyword needs at least one whitespace after it');
   is $c, 6, 'infinte for loop ends in time using last';
 }
 
+#L<S04/Loop statements/"list comprehensions">
+{
+    my @odd-squares = ($_ * $_ if $_ % 2 for 0..10);
+    is @odd-squares.join(' '), '1 9 25 49 81', 'list comprehension';
+}
+
 # RT #62478
 {
     try { EVAL('for (my $ii = 1; $ii <= 3; $ii++) { say $ii; }') };