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,9869a3929132e322
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,UTF8
Path: 
 g2news2.google.com!news4.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!tiscali!newsfeed1.ip.tiscali.net!proxad.net!fdn.fr!freenix!news.wanadoo.fr!news.wanadoo.fr!not-for-mail
Message-ID: <44FF09C0.5050505@obry.net>
Date: Wed, 06 Sep 2006 19:47:44 +0200
From: Pascal Obry <pascal@obry.net>
Organization: Home - http://www.obry.net
User-Agent: Thunderbird 1.5 (Windows/20051201)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
To: bubble <kuan_long@hotmail.com>
Subject: Re: pragma import ambiguity
References: <fbidnR4YeKBfbGPZnZ2dnUVZ_r6dnZ2d@comcast.com>
 <1157560770.358187.249610@i3g2000cwc.googlegroups.com>
In-Reply-To: <1157560770.358187.249610@i3g2000cwc.googlegroups.com>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
NNTP-Posting-Date: 06 Sep 2006 19:47:49 CEST
NNTP-Posting-Host: 82.120.157.200
X-Trace: 1157564869 news.orange.fr 27394 82.120.157.200:4040
X-Complaints-To: abuse@orange.fr
Xref: g2news2.google.com comp.lang.ada:6483
Date: 2006-09-06T19:47:49+02:00
List-Id: <comp.lang.ada>

bubble a écrit :
> are you mean there are the same name symbols in a library?
...

I think you got this wrong. The OP problem is that Clear is a procedure
and also a value of the enumerated type logicopenm.

I think the program is ok. A pragma import takes a local_name and this
can't be an enumeration_literal_specification. So the clear in the
pragma import is not ambigus as it can only apply to the procedure Clear.

Now it is said in RM 3.5.1(11):

<<
When called, the parameterless function associated with an enumeration
literal returns the corresponding
value of the enumeration type.
>>

But I don't think this implicit function should be taken into account here.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.net
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595