Fix ForLoopStmt extra space before loop keyword

extensions/default_unparsing_config.json

@@ -2580,14 +2580,19 @@
                 "kind": "recurse_field",
                 "field": "f_iter_expr"
               },
-              "line",
               {
                 "kind": "recurse_field",
                 "field": "f_iter_filter"
               }
             ]
           }
         ]
+      },
+      "fields": {
+        "f_iter_filter": [
+          "line",
+          "recurse"
+        ]
       }
     },
     "ForLoopStmt": {
@@ -5852,4 +5857,4 @@
     }
   },
   "max_empty_lines": 1
-}
+}

testsuite/tests/unparsing/for_loop_stmt/array_init/input.ada

@@ -0,0 +1,3 @@
+   for I in My_Tasks'Range loop
+      My_Tasks (I).Start (I);
+   end loop;

testsuite/tests/unparsing/for_loop_stmt/array_init/test.out

@@ -0,0 +1,3 @@
+for I in My_Tasks'Range loop
+   My_Tasks (I).Start (I);
+end loop;

testsuite/tests/unparsing/for_loop_stmt/array_init/test.yaml

@@ -0,0 +1,4 @@
+driver: unparser
+rule: stmt
+description: |
+  Test that no line breaks are added.

testsuite/tests/unparsing/object_decl/with_composite_constraints/input.ada

@@ -1,2 +1 @@
- Max : not null Person_Name := new Person(Sex=>M);
-
+Max : not null Person_Name := new Person(Sex=>M);