[Ada] Fix propagation of compiler internal flag

[thirdparty/gcc.git] / gcc / ada / ChangeLog

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 238df0fe174bd2ae2a96935477c61b3d949448a2..eeb991154916931b592b6fa4c553e18995ed5951 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,10 @@
+2019-08-20  Ed Schonberg  <schonberg@adacore.com>
+
+       * sem_ch3.adb (Analyze_Object_Declaration): If actual type is
+       private and distinct from nominal type in declaration, propagate
+       flags Is_Constr_Subt_For_U_Nominal and _UN_Aliased to full view
+       of private type.
+
 2019-08-20  Ed Schonberg  <schonberg@adacore.com>
 
        * exp_attr.adb (Expand_Loop_Entry_Attribute): When expanding a