From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: *
X-Spam-Status: No, score=1.5 required=3.0 tests=BAYES_50,FREEMAIL_FROM,
	FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no
	version=3.4.5-pre1
X-Received: by 2002:a05:620a:6d8:: with SMTP id 24mr17964618qky.331.1613952845604;
        Sun, 21 Feb 2021 16:14:05 -0800 (PST)
X-Received: by 2002:a25:560a:: with SMTP id k10mr29841905ybb.165.1613952845417;
 Sun, 21 Feb 2021 16:14:05 -0800 (PST)
Path: eternal-september.org!reader02.eternal-september.org!news.dns-netz.com!news.freedyn.net!newsreader4.netcologne.de!news.netcologne.de!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 21 Feb 2021 16:14:05 -0800 (PST)
Injection-Info: google-groups.googlegroups.com; posting-host=85.240.209.103; posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT
NNTP-Posting-Host: 85.240.209.103
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <4086f350-c56b-4eec-91d3-ef685230b011n@googlegroups.com>
Subject: "unconstrained subtype in component declaration" vs "discriminant in
 constraint must appear alone"
From: Mehdi Saada <00120260a@gmail.com>
Injection-Date: Mon, 22 Feb 2021 00:14:05 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 1751
Xref: reader02.eternal-september.org comp.lang.ada:61405
List-Id: <comp.lang.ada>

this message "unconstrained subtype in component declaration"
arises from this:

    subtype Limit_number is Natural range 0..51;
    type CARDS is new Natural range Limit_number'Range;
    type Sets_of_Card is array (Limit_number range <>) of Cards;
    function INITIALIZATION (Nb: Nombre_cartes) return Sets_of_Card;
         type CARDS_SETS (Nb: Nombre_cartes) is record
         Set: Sets_of_Card :=3D INITIALIZATION (Nb);
    end record;

okay,
then this "Set: Sets_of_Card (0..nb-1) :=3D INITIALIZATION (Nb);"
gives "discriminant in constraint must appear alone" !
|[{|@]=C5=8B=C2=A4=C2=A3# !!

How do you do ?