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.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,d0452dbe16ac0df4,start
X-Google-Attributes: gid103376,public
From: louis.granger@mail.polymtl.ca (granger)
Subject: ObjectAda vs Gnat -- bugs
Date: 1997/05/15
Message-ID: <5lf6ka$nbg@service.polymtl.ca>#1/1
X-Deja-AN: 241716523
Organization: Ecole Polytechnique
Reply-To: louis.granger@mail.polymtl.ca
Newsgroups: comp.lang.ada
Date: 1997-05-15T00:00:00+00:00
List-Id: <comp.lang.ada>


Here is a shortened version of a package that I wrote.

It compiles without any error with ObjectAda.
With gnat3.09, I have the following errors:

rgbcolor.ads:18:41: expect object name in renaming
rgbcolor.ads:19:49: expect object name in renaming

Which of the compilers is correct ?

If gnat is correct ( probably gnat!!!), the internal package RGB_Value does
 not have any influence, how can I have the enumeration values Gray* and
 Grey* of the same type or subtype with the same internal value ?

Thank in advance for any suggestion.

package rgbcolor is
	package RGB_Value is
		type Color3  is
		record
			red, green, blue : Float;
		end record;
		Gray0	: constant Color3 := ( 0.000, 0.000, 0.000 );
		Grey0	: Color3 renames Gray0;
		Gray1	: constant Color3 := ( 0.012, 0.012, 0.012 );
		Grey1	: Color3 renames Gray1;
	end RGB_Value;
	
	type Color_Type is ( Gray0, Gray1 );
	
	subtype Grey_Color_Type is Color_Type range Gray0 .. Gray1;
	
	Grey0	: Color_Type renames	Gray0;	-- line in error---------------
	Grey1	: Color_Type renames	Gray1;	-- line in error---------------
end rgbcolor;