From 15efc175f7283997889516bdfe67f5cb87e4c5e0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 16 Jun 2016 12:29:15 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r237518 --- gcc/ada/exp_ch3.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 43d27ba613a..d3b21a8b72d 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -6960,8 +6960,7 @@ package body Exp_Ch3 is if Comes_From_Source (Def_Id) and then (Has_Default_Init_Cond (Typ) - or else - Has_Inherited_Default_Init_Cond (Typ)) + or else Has_Inherited_Default_Init_Cond (Typ)) and then not Has_Init_Expression (N) and then Present (Default_Init_Cond_Procedure (Typ)) then -- 2.30.2