[Ada] Never treat intrinsic subprograms as nested

gcc/ada/

	* exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat
	instrinsic subprograms as nested.

diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 1c5f618..be06580 100644 (file)
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -888,6 +888,7 @@ package body Exp_Unst is
                      if Is_Subprogram (Ent)
                        and then not Is_Generic_Subprogram (Ent)
                        and then not Is_Imported (Ent)
+                       and then not Is_Intrinsic_Subprogram (Ent)
                        and then Scope_Within (Ultimate_Alias (Ent), Subp)
                      then
                         Append_Unique_Call ((N, Current_Subprogram, Ent));