[Ada] Fix handling of scopes for subprogram calls in unnesting

gcc/ada/

	* exp_unst.adb (Unnest_Subprogram.Build_Table.Visit_Node): Fix
	handling of scopes for subprogram calls.

diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 6fd7a0e..52d6142 100644 (file)
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -883,7 +883,7 @@ package body Exp_Unst is
                      --  within Subp. Calls to Subp itself or to subprograms
                      --  outside the nested structure do not affect us.
 
-                     if Scope_Within (Ent, Subp)
+                     if Scope_Within (Ultimate_Alias (Ent), Subp)
                        and then Is_Subprogram (Ent)
                        and then not Is_Imported (Ent)
                      then