diff options
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 6a1e3e940ea..6441cfa7396 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -8298,7 +8298,9 @@ package body Sem_Ch3 is -- the point of instantiation, we want to find the discriminant -- that corresponds to D in Rec, i.e. X. - if Present (Original_Discriminant (Id)) then + if Present (Original_Discriminant (Id)) + and then In_Instance + then Discr := Find_Corresponding_Discriminant (Id, T); Found := True; |