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,
	MSGID_SHORT autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!titan!polymnia!fred
From: fred@polymnia.tsd.arlut.utexas.edu (Fred Hosch)
Newsgroups: comp.lang.ada
Subject: Unusual "use" semantics
Message-ID: <20@polymnia.tsd.arlut.utexas.edu>
Date: 8 Aug 90 21:21:51 GMT
Organization: Applied Research Labs, University of Texas; Austin, TX
List-Id: <comp.lang.ada>

My Ada compiler complains about the relation on the fourth line of the
following

	with TEXT_IO;
	procedure TEST is
	begin
	    if TEXT_IO.COL = 1 then
	        TEXT_IO.PUT_LINE ("COL is 1");
	    else
	        TEXT_IO.PUT_LINE ("COL is not 1");
	    end if;
	end TEST;

reporting: no operator visible for positive_count "=" universal integer.

If I add a context clause "use TEXT_IO;" it compiles successfully.

Is this a compiler bug or am I missing something in the LRM?

	Fred Hosch
	Applied Research Labs
	UT Austin
	fred@cs.utexas.edu
	fred@titan.tsd.arlut.utexas.edu