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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,da74d35864a7d542
X-Google-Attributes: gid103376,public
From: jsa@alexandria (Jon S Anthony)
Subject: Re: Discriminant as default initial value
Date: 1997/03/31
Message-ID: <JSA.97Mar31144716@alexandria>#1/1
X-Deja-AN: 229703316
Distribution: world
References: <333DB640.59EA@sirinet.net>
Organization: PSI Public Usenet Link
Newsgroups: comp.lang.ada
Date: 1997-03-31T00:00:00+00:00
List-Id: <comp.lang.ada>


In article <333DB640.59EA@sirinet.net> Scott Renfro <srenfro@sirinet.net> writes:

> procedure Test_Discrim is
> 
>    type Matrix is array (Integer range <>, Integer range <>) of Integer;
>    subtype Matrix_Range is Natural range 1 .. 80;
>    
>    type Matrix_Record (Columns : Matrix_Range) is
>       record
> --         Max      : Natural := Columns;   -- if declared here, all is
> well
>          Position : Matrix (1 .. Columns, 1 .. Columns);
>          Max      : Matrix_Range := Columns;   -- if declared here, max
> improper
>       end record;
> 
>    width : Matrix_Range := 1;

If this is an accurate account, it's a bug in GNAT (whatever
version/platform you are using.)

/Jon
-- 
Jon Anthony
Organon Motives, Inc.
Belmont, MA 02178
617.484.3383
jsa@organon.com