ada: Nested use_type_clause with "all" cancels use_type_clause with wider scope

The compiler mishandles nested use_type_clauses in the case where the
outer one is a normal use_type_clause and the inner one has "all".
Upon leaving the scope of the inner use_type_clause, the outer one
is effectively disabled, because it's not considered redundant (and
in fact it's only partially redundant). This is fixed by testing for
the presence of a use_type_clause for the same type that has a wider
scope when ending the inner use_type_clause.

gcc/ada/ChangeLog:

	* sem_ch8.adb (End_Use_Type): Add a test for there not being an earlier
	use_type_clause for the same type as an additional criterion for turning
	off In_Use and Current_Use_Clause.

0 files changed, 0 insertions, 0 deletions