From a6c467131b0c07ab5d9b136148cae201de540109 Mon Sep 17 00:00:00 2001 From: Steve Baird Date: Thu, 23 Apr 2020 11:37:10 -0700 Subject: [PATCH] [Ada] No Default_Initial_Condition check when declaring an imported object 2020-06-18 Steve Baird gcc/ada/ * exp_ch3.adb (Expand_N_Object_Declaration): Do not generate a default initial condition check for the declaration of an imported object. --- gcc/ada/exp_ch3.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 15b88c3a87b..f89e070918d 100644 --- a/gcc/ada/exp_ch3.adb +++ b/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);