ada: Fix unexpected Program_Error raised in the parser on mismatched []

This happens for example with:

  A : constant array (Natural range <>) of String := [ "xor" [;

The problem is that the left bracket token is incorrectly classified as
a name extension, but there is no handler in the Scan_Name_Extension_OK
part of P_Name in Par.Ch4.

gcc/ada/ChangeLog:

	PR ada/112821
	* scans.ads (Token_Type): Remove Tok_Left_Bracket from Namext.

diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads
index 44c20fcf3d260c6441d9f624b125d2f43e7bf456..c445635262a40b53feacb576b920da139b2aa7b8 100644 (file)
--- a/gcc/ada/scans.ads
+++ b/gcc/ada/scans.ads
@@ -93,10 +93,11 @@ package Scans is
       Tok_Raise,                    -- RAISE
       Tok_Right_Curly_Bracket,      -- }
 
+      Tok_Left_Bracket,    -- [
+
       Tok_Dot,             -- .            Namext
       Tok_Apostrophe,      -- '            Namext
 
-      Tok_Left_Bracket,    -- [            Namext
       Tok_Left_Paren,      -- (            Namext, Consk
 
       Tok_Delta,           -- DELTA        Atkwd, Sterm, Consk