1 files changed, 2 insertions, 8 deletions
diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb
index 1565662..f9a5900 100644
--- a/gcc/ada/sem_ch7.adb
+++ b/gcc/ada/sem_ch7.adb
@@ -1144,16 +1144,10 @@ package body Sem_Ch7 is
          end if;
       end if;
 
-      if Is_Comp_Unit then
-
-         --  Set Body_Required indication on the compilation unit node, and
-         --  determine whether elaboration warnings may be meaningful on it.
+      --  Set Body_Required indication on the compilation unit node
 
+      if Is_Comp_Unit then
          Set_Body_Required (Parent (N), Body_Required);
-
-         if not Body_Required then
-            Set_Suppress_Elaboration_Warnings (Id);
-         end if;
       end if;
 
       End_Package_Scope (Id);