Re: checking a loop execution

[Andreas Schulz <accot.schulz@nord-com.net>]

pumilia@my-deja.com schrieb:
> 
> Is there a way to check if a loop has been exited before completion or
> if all iterations have been performed?
> In fortran the loop index is increased one last time, at the end of
> the loop, but in Ada that trick cannot be exploited; the index is not
> even defined outside the loop.

If you want too use its value outside the loop, you
might try a while-loop instead :

> procedure loop_test  is
> 
 ivar : integer :=1;
> 
> begin
   while ivar <= 10 loop
     if <condition>  then
>      exit ;
>    end if ;
     ivar := ivar + 1;
>  end loop;
>  put(ivar,2);
> end loop_test;