Unusual "use" semantics

[fred@polymnia.tsd.arlut.utexas.edu (Fred Hosch)]

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