From: Yannick Moy <moy@adacore.com>
Date: Tue, 29 Sep 2020 07:03:18 +0000 (+0200)
Subject: [Ada] Fix spurious error on child library-level subprogram with aspects
X-Git-Tag: basepoints/gcc-12~2969
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=91edb3f66cb3572048547f06628eeb38ddadd44c;p=thirdparty%2Fgcc.git

[Ada] Fix spurious error on child library-level subprogram with aspects

gcc/ada/

	* sem_ch10.adb (Analyze_Compilation_Unit): Move aspects from
	body to the newly created spec.
---

diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb
index aab186c76653..2d1232e31f17 100644
--- a/gcc/ada/sem_ch10.adb
+++ b/gcc/ada/sem_ch10.adb
@@ -828,6 +828,7 @@ package body Sem_Ch10 is
                      --  of the child unit does not act as spec any longer.
 
                      Set_Acts_As_Spec (N, False);
+                     Move_Aspects (From => Unit_Node, To => Unit (Lib_Unit));
                      Set_Is_Child_Unit (Defining_Entity (Unit_Node));
                      Set_Debug_Info_Needed (Defining_Entity (Unit (Lib_Unit)));
                      Set_Comes_From_Source_Default (SCS);