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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,9e03b5de1f7825a5
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!local01.nntp.dca.giganews.com!nntp.scarlet.biz!news.scarlet.biz.POSTED!not-for-mail
NNTP-Posting-Date: Tue, 13 Sep 2005 15:49:13 -0500
From: Ludovic Brenta <ludovic@ludovic-brenta.org>
Newsgroups: comp.lang.ada
Subject: Re: discriminant type
References: <1126644305.724460.155300@g47g2000cwa.googlegroups.com>
Date: Tue, 13 Sep 2005 22:49:35 +0200
Message-ID: <8764t4hew0.fsf@ludovic-brenta.org>
User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/21.4 (gnu/linux)
Cancel-Lock: sha1:lmgT/UaeorN21OrHW6nvjN6R89c=
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Host: 83.134.243.143
X-Trace: 
 sv3-s9rvqpKs7I36v1ifn2GGDx84fJuT0TI+qGCWvynGF5iqYl3FK48PhQtjzupazM8FmEwGdS837cubzbu!RENUovV6UhXZnEX/dwwld5OV2GLLSPTm+eGfalq7NGfOPZy/ytIq+GmvSvHQ0T0ktFxgbarPxTA=
X-Complaints-To: abuse@scarlet.be
X-DMCA-Complaints-To: abuse@scarlet.biz
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.3.32
Xref: g2news1.google.com comp.lang.ada:4632
Date: 2005-09-13T22:49:35+02:00
List-Id: <comp.lang.ada>

diff -u:
@@ -1,3 +1,3 @@
  type T_Matrix (Col_Size, Row_Size : Integer) is record
-   Vec : T_Vector (Col_Size * Row_Size);
+   Vec : T_Vector (1 .. Col_Size * Row_Size);
  end record;

-- 
Ludovic Brenta.