From: jsa@alexandria (Jon S Anthony)
Subject: Re: Discriminant as default initial value
Date: 1997/03/31
Date: 1997-03-31T00:00:00+00:00 [thread overview]
Message-ID: <JSA.97Mar31144716@alexandria> (raw)
In-Reply-To: 333DB640.59EA@sirinet.net
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
next prev parent reply other threads:[~1997-03-31 0:00 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-03-29 0:00 Discriminant as default initial value Scott Renfro
1997-03-29 0:00 ` Matthew Heaney
1997-03-30 0:00 ` Scott Renfro
1997-03-30 0:00 ` Bob Klungle
1997-03-30 0:00 ` Robert Dewar
1997-03-31 0:00 ` Bob Klungle
1997-03-31 0:00 ` Robert Dewar
1997-03-31 0:00 ` Jon S Anthony [this message]
1997-03-31 0:00 ` Robert Dewar
1997-04-02 0:00 ` Jon S Anthony
-- strict thread matches above, loose matches on Subject: below --
1997-03-30 0:00 Kees de Lezenne Coulande
1997-03-30 0:00 ` Robert Dewar
1997-04-02 0:00 Kees de Lezenne Coulande
1997-04-02 0:00 ` Robert Dewar
1997-04-07 0:00 ` Keith Thompson
1997-04-02 0:00 ` Scott Renfro
1997-04-02 0:00 ` Robert Dewar
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox