From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.2 required=5.0 tests=BAYES_00,FREEMAIL_FROM, FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no version=3.4.4 X-Received: by 10.36.118.82 with SMTP id z79mr5283337itb.15.1513813148327; Wed, 20 Dec 2017 15:39:08 -0800 (PST) X-Received: by 10.157.83.199 with SMTP id i7mr382106oth.3.1513813148192; Wed, 20 Dec 2017 15:39:08 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!feed.usenet.farm!feeder3.usenet.farm!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!i6no867172itb.0!news-out.google.com!b73ni2824ita.0!nntp.google.com!g80no872410itg.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Wed, 20 Dec 2017 15:39:07 -0800 (PST) In-Reply-To: <6757ff0c-4dd9-4ddd-9f4d-70fb725d1f09@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=85.240.218.120; posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT NNTP-Posting-Host: 85.240.218.120 References: <0d33e631-e63d-4346-ac95-5eec72127f4f@googlegroups.com> <6757ff0c-4dd9-4ddd-9f4d-70fb725d1f09@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: syntaxic exploration From: Mehdi Saada <00120260a@gmail.com> Injection-Date: Wed, 20 Dec 2017 23:39:08 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Xref: reader02.eternal-september.org comp.lang.ada:49561 Date: 2017-12-20T15:39:07-08:00 List-Id: Le mercredi 20 d=C3=A9cembre 2017 23:48:45 UTC+1, Mehdi Saada a =C3=A9crit= =C2=A0: > Sorry. How about the empty array in an aggregate ?=20 > I found the rule very sensical. But I wonder why the more basic iterative= construct, can have checks at run time, and not the more advanced one ? >=20 > subtype T_Degre is Natural range 0..Max;=20 > type T_Vect_Coef is array (T_Degre range <>) of T_Rationnel;=20 > type T_Polynome (Degre : T_Degre :=3D 0) is=20 > record=20 > Coef : T_Vect_Coef (0..Degre) :=3D (others =3D> Nulle);=20 > end record;=20 > type T_Rationnel is record=20 > Numerateur : T_Entier :=3D 0;=20 > Denominateur: T_Entier_Pos :=3D 1;=20 > end record; -- (t_entier est un type param=C3=AAtre formel du g=C3=A9n=C3= =A9rique.=20 > subtype T_Entier_Pos is T_Entier range 1..T_Entier'Last;=20 >=20 > All the operations (*,-,- unaire, /, abs, relations d'ordre) are provided= for T_Rationnel in the same package as the type itself, in the same packag= e.