Something I don't understand

[Laurent <daemon2@internet.lu>]

Hi

Doing an exercise from the book "Ada 95 Problem Solving and Program Design".
I am supposed to make a robust function to read some values. It works so far but there is one thing I don't
understand.

   MaxName : CONSTANT Positive := 30; -- defined in other package
   SUBTYPE NameType IS String (1 .. MaxName); -- defined in other package

   Count : Natural RANGE 1.. MaxName;

         Name : LOOP
               BEGIN --exception handler block               
                    Ada.Text_IO.Put ("Name (1 - ");
                    Ada.Integer_Text_IO.Put (Item => MaxName,Width => 1);
                    Ada.Text_IO.Put(Item => " characters) >");
                    Ada.Text_IO.Get_Line (Item => S, Last => Count);
                    Item.Name (1 .. Count) := S (1 .. Count);  
                    Ada.Text_IO.Skip_Line;
            
               EXIT; -- correct Name
               
            EXCEPTION
               WHEN Constraint_Error =>
                  Ada.Text_IO.Skip_Line;
                  Ada.Text_IO.Put (Item => "Name too short/long!");
                  Ada.Text_IO.New_Line;
                  
            END; -- exception handler
         END LOOP Name;


So when I enter nothing as name I get a Constraint_Error which is handled. That's ok but when the name I enter is longer than 30 chars no exception. Is that normal and if yes/no why? 

The chars that are to much are just ignored.

Thanks

Laurent