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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,1f0eb93f00b3420e,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-09-23 08:32:34 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!europa.eng.gtefsd.com!darwin.sura.net!source.asset.com!source.asset.com!not-for-mail
From: mcconnel@source.asset.com (Andrew R. McConnell)
Newsgroups: comp.lang.ada
Subject: Rational Compiler Problem ??
Date: 23 Sep 1994 11:08:38 -0400
Organization: Asset Source for Software Engineering Technology
Message-ID: <35ur1m$9n3@source.asset.com>
NNTP-Posting-Host: source.asset.com
Date: 1994-09-23T11:08:38-04:00
List-Id: <comp.lang.ada>

Hi folks. Is there _anything_ wrong or non-portable with this code?

-------------------
with Text_IO;

procedure Bug_Test is

    type Text_Field ( The_Text_Size : Positive := 1 ) is
      record
        The_Text : String ( 1 .. The_Text_Size ) := ( others => ' ' ) ;
      end record ;

Size : Positive := 5 ;
My_Text_Field : Text_Field(Size);

begin
  Text_IO.Put_Line("Hello");
end Bug_Test;
--------------------


It compiles, links, and runs cleanly in my IBM/AIX environment as well
as in the DEC Ada environment.  However, when compiled on the
HP/Rational platform, warning messages(not errors) are generated:

 104:    type Text_Field ( The_Text_Size : Positive := 1 ) is
 105:      record
A ---------^
A:warning: RM Appendix F: storage needed for component exceeds implementation li
mit
 106:        The_Text             : String ( 1 .. The_Text_Size ) := 
A ----------------------------------^
A:warning: RM Appendix F: unconstrained record component size exceeds limit
 107:                                              ( others => ' ' ) ;



Is this a problem with the Rational compiler?  This code _will_ link,
but the executable fails miserably.  I don't have access to the
documentation as to known bugs, etc.

Also, is there any such thing as an "acceptable" warning from an Ada
compiler?  (I hope not - how else can I make fun of C-philes? ;-) )
-- 
Andrew McConnell             "Ford!" he said, "there's an infinite number of
Voice: (304) 594-9819      monkeys outside who want to talk to us about this 
FAX:   (304) 594-3951      script for 'Hamlet' they've worked out."
mcconnel@source.asset.com                                    -- Arthur Dent