[Bug ada/113862] error: "others" choice not allowed here

[p.p11 at orange dot fr via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113862

--- Comment #2 from Pascal Pignard <p.p11 at orange dot fr> ---
Nevertheless, theses examples of code come from AARM Ada 2022:
11.3 Raise Statements and Raise Expressions
...
All of the following are legal, no additional parens are needed:

2.a.10/4        Pre : Boolean  := (if not Is_Valid(Param) then raise
Not_Valid_Error);
                A : A_Tagged   := (Some_Tagged'(raise TBD_Error) with Comp =>
'A');
                B : Some_Array := (1, 2, 3, others => raise Not_Valid_Error);
                C : Natural    := Func (Val => raise TBD_Error);