En-tête de fichier

   type T_En_Tete_Fichier is
      record
         Nom_Fichier   : Unbounded_String := Null_Unbounded_String;
         Auteur        : Unbounded_String := Null_Unbounded_String;
         But           : Unbounded_String := Null_Unbounded_String;
         Module        : Unbounded_String := Null_Unbounded_String;
         Modifications : Unbounded_String := Null_Unbounded_String;
         Raison        : Unbounded_String := Null_Unbounded_String;
         Remarques     : Unbounded_String := Null_Unbounded_String;
      end record;

Cette structure représente l'en-tête du fichier de test (voir ci-dessous).

-- Nom du fichier             : test.ads
-- Auteurs                    : Guignard & Bornoz
-- But                        : Programme de test du paquetage ...                            : 
-- Module(s)                  : Integer_Io; Float_Io, ...
-- Modifications              : 2002/MB
-- Raison                     : Mise à jour

-- Remarques                  :