Re: "continue/next" for "loop"

[Stephen Leake <Stephe.Leake@nasa.gov>]

Lutz Donnerhacke <lutz@iks-jena.de> writes:

> 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".
> 

Your loop, slightly modified:

procedure t is
begin
   for j in 2 .. 8 loop
      for i in 2 .. 8 loop
         if i mod j = 0 then
            null;
         else          
            Put(i'Img);
         end if;            
      end loop;
      New_Line;
   end loop;
end t;

If the "null" and "Put (i'Img)" are actually complex sequences of
statments, put them in a (local) procedure to make the top level
structure clear.

-- 
-- Stephe