Re: Case statement and Integers.

[tmoran@acm.org]

> pivot:constant integer:=30;
> begin
> for j in 1..100 loop
> numbers(j):=j;
> case Numbers(J) is
>     when 1..Pivot - 1 =>      ...
>     when Pivot + 1 .. 100 =>  ...
>     when others =>
> put_line (integer'image (j) & " is equal to " & integer'image(pivot));
>  end case;
>  end loop;
It must be Monday morning.  Insert the line
  if j = 5 then numbers(j) = 500;end if;
and you will be surprised to find that " 5 is equal to  30"