diff options
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 7596a59..2ebbe36 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -7041,7 +7041,7 @@ package body Sem_Ch3 is Desig_Type := Designated_Type (Derived_Type); if Is_Composite_Type (Desig_Type) - and then (not Is_Array_Type (Desig_Type)) + and then not Is_Array_Type (Desig_Type) and then Has_Discriminants (Desig_Type) and then Base_Type (Desig_Type) /= Desig_Type then |