procedure Cond_Expr is
   function Do_Something return Boolean is (True);

   A : Integer := 10;
begin
   if A = 10 then
   --% list(node.f_cond_expr.p_complete)
   elsif D
   --% list(node.p_complete)
end Cond_Expr;
