procedure Main is
   A : Integer;
   B : Integer;
begin
   for I in 1 .. 10 loop
      -- Comment
      A :=
         1;
      -- Comment;
      B :=
         2;
      -- Comment;
   end loop;
end Main;
