diff options
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 53726d44217..55576c57f8e 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -5569,7 +5569,8 @@ package body Sem_Util is begin Save_Interps (N, New_Prefix); - Rewrite (N, Make_Explicit_Dereference (Sloc (N), Prefix => New_Prefix)); + Rewrite (N, + Make_Explicit_Dereference (Sloc (Parent (N)), Prefix => New_Prefix)); Set_Etype (N, Designated_Type (Etype (New_Prefix))); |