"continue/next" for "loop"

[Lutz Donnerhacke <lutz@iks-jena.de>]

I might be out of coffee, but I do not find an elegant way to skip the rest
of a loop body for the current cycle other than using "goto".

with Ada.Text_IO;   use Ada.Text_IO;

procedure t is
begin
   for j in 2 .. 8 loop
      for i in 2 .. 8 loop
         if i mod j = 0 then  --  Assume complex statements here.
            goto next;        --  In my real case, it's another loop,
         end if;              --  which detects the end of current path inside.
         Put(i'Img);
         <<next>> null;
      end loop;
      New_Line;
   end loop;
end t;