diff options
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index ab966963a69..e7d179150e3 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7920,6 +7920,7 @@ package body Exp_Ch4 is -- Insert explicit dereference if required if Is_Access_Type (Ptyp) then + Set_Etype (P, Ptyp); -- in case it's private Insert_Explicit_Dereference (P); Analyze_And_Resolve (P, Designated_Type (Ptyp)); |