diff options
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
-rw-r--r-- | gcc/ada/sem_ch5.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 581edf4..590d8ab 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1814,7 +1814,7 @@ package body Sem_Ch5 is Set_Etype (Def_Id, Component_Type (Typ)); if Present (Subt) - and then Bas /= Base_Type (Component_Type (Typ)) + and then Base_Type (Bas) /= Base_Type (Component_Type (Typ)) then Error_Msg_N ("subtype indication does not match component type", Subt); |