Message ID | 20191010152946.GA87459@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Use declared type for deciding on SPARK pointer rules | expand |
--- gcc/ada/sem_prag.adb +++ gcc/ada/sem_prag.adb @@ -2429,8 +2429,7 @@ package body Sem_Prag is -- Constant related checks elsif Ekind (Item_Id) = E_Constant - and then - not Is_Access_Type (Underlying_Type (Etype (Item_Id))) + and then not Is_Access_Type (Etype (Item_Id)) then -- Unless it is of an access type, a constant is a read-only