Message ID | 20200618091320.GA2113@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] No Default_Initial_Condition check when declaring an imported object | expand |
--- gcc/ada/exp_ch3.adb +++ gcc/ada/exp_ch3.adb @@ -7516,6 +7516,7 @@ package body Exp_Ch3 is and then Has_DIC (Typ) and then Present (DIC_Procedure (Typ)) and then not Has_Init_Expression (N) + and then not Is_Imported (Def_Id) then declare DIC_Call : constant Node_Id := Build_DIC_Call (Loc, Def_Id, Typ);