Re: simple newbie program.

["Grein, Christoph" <christoph.grein@eurocopter.com>]

> package body stack is
>    stack_size : constant := 100;
>    type stack_size_type is range 0..stack_size;
> 
>    top   : stack_size_type;
>    stack : array (stack_size_type'range) of integer;
                                   ~~~~~~
     stack : array (stack_size_type) of integer;

But the size is not stack_size, it's stack_size+1, because you start at 0.

Overflow and underflow are not handled.

>    package int_io is new text_io.integer_io(integer);

There exists a pre-instantiation of Ada.Text_IO.Integer_IO (Integer):
    Ada.Integer_Text_IO;