[gcc r12-6449] [Ada] Tune inconsistent message about fixed-lower-bound and -gnatX

[gcc r12-6449] [Ada] Tune inconsistent message about fixed-lower-bound and -gnatX

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:a4c26e697b230b131c6336dc61d955c28fafa3ae

commit r12-6449-ga4c26e697b230b131c6336dc61d955c28fafa3ae
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Mon Jan 3 17:50:44 2022 +0100

    [Ada] Tune inconsistent message about fixed-lower-bound and -gnatX
    
    gcc/ada/
    
            * par-ch3.adb (P_Array_Type_Definition): Use
            Error_Msg_GNAT_Extension.

Diff:
---
 gcc/ada/par-ch3.adb | 21 +++------------------
 1 file changed, 3 insertions(+), 18 deletions(-)

diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb
index 992429187fe..08ffd7bf826 100644
--- a/gcc/ada/par-ch3.adb
+++ b/gcc/ada/par-ch3.adb
@@ -2788,12 +2788,7 @@ package body Ch3 is
             else
                P_Index_Subtype_Def_With_Fixed_Lower_Bound (Subtype_Mark_Node);
 
-               if not Extensions_Allowed then
-                  Error_Msg_N
-                    ("fixed-lower-bound array is an extension feature; "
-                       & "use -gnatX",
-                     Token_Node);
-               end if;
+               Error_Msg_GNAT_Extension ("fixed-lower-bound array");
             end if;
 
             exit when Token = Tok_Right_Paren or else Token = Tok_Of;
@@ -2862,12 +2857,7 @@ package body Ch3 is
                      P_Index_Subtype_Def_With_Fixed_Lower_Bound
                        (Subtype_Mark_Node);
 
-                     if not Extensions_Allowed then
-                        Error_Msg_N
-                          ("fixed-lower-bound array is an extension feature; "
-                             & "use -gnatX",
-                           Token_Node);
-                     end if;
+                     Error_Msg_GNAT_Extension ("fixed-lower-bound array");
                   end if;
 
                   exit when Token = Tok_Right_Paren or else Token = Tok_Of;
@@ -3369,12 +3359,7 @@ package body Ch3 is
             --  later during analysis), and scan to the next token.
 
             if Token = Tok_Box then
-               if not Extensions_Allowed then
-                  Error_Msg_N
-                    ("fixed-lower-bound array is an extension feature; "
-                       & "use -gnatX",
-                     Expr_Node);
-               end if;
+               Error_Msg_GNAT_Extension ("fixed-lower-bound array");
 
                Expr_Node := Empty;
                Scan;