https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114640
--- Comment #3 from Eric Botcazou <ebotcazou at gcc dot gnu.org> --- This appears to be sufficient: diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 04d114694ab..71cfdd718e0 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -6549,6 +6549,7 @@ package body Exp_Util is | N_Aggregate | N_Delta_Aggregate | N_Extension_Aggregate + | N_Elsif_Part and then Nkind (Parent (Par)) not in N_Function_Call | N_Procedure_Call_Statement | N_Entry_Call_Statement