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,XPRIO autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5117b1b6391a0e06,start
X-Google-Attributes: gid103376,public
Path: 
 g2news1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!news-feed01.roc.ny.frontiernet.net!nntp.frontiernet.net!nntp.giganews.com.MISMATCH!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail
From: "Abby" <none@no.one.it>
Newsgroups: comp.lang.ada
Subject: A simple ADA puzzle (I haven't the answer)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2739.300
Message-ID: <dRZzc.40593$G%.26441@tornado.fastwebnet.it>
Date: Wed, 16 Jun 2004 17:40:04 +0200
NNTP-Posting-Host: 23.252.122.242
X-Complaints-To: newsmaster@fastweb.it
X-Trace: tornado.fastwebnet.it 1087400393 23.252.122.242 (Wed,
 16 Jun 2004 17:39:53 CEST)
NNTP-Posting-Date: Wed, 16 Jun 2004 17:39:53 CEST
Xref: g2news1.google.com comp.lang.ada:1575
Date: 2004-06-16T17:40:04+02:00
List-Id: <comp.lang.ada>

Hi! I have this code:

  type LEN_TYPE is array (INTEGER range <>)
    of CHARACTER;

  type STRING_TYPE (LEN : INTEGER := 0) is
    record
      STRING : LEN_TYPE (1 .. LEN);
    end record;

  type UNC2_ARRAY_TYPE is array (INTEGER range <>)
    of STRING_TYPE;

  type RET2_TYPE (INIT : INTEGER := 0) is
    record
      IFOS : UNC2_ARRAY_TYPE (1 .. INIT);
    end record;

  type RET_TYPE
       ( DEF : INTEGER := 0 )
  is
    record
      ID  : INTEGER;
      IFO : RET2_TYPE (INIT => DEF);
    end record;

  type UNC_ARRAY_TYPE is
    array (INTEGER range <>) of
      RET_TYPE;

and i'd like to initialize and use a variable of type UNC_ARRAY_TYPE (for
the unconstraint array and records choose any value you want, al least 1
:) ). I can say that simply write  VAR : UNC_ARRAY_TYPE (1..3);  gives some
warning but compiles, but gives also a beautiful constraint_error when you
use it, obviously. Any ideas? Thanx for your time!