[gcc r14-1207] ada: Fix copy-paste mistake in analysis of Exceptional_Cases

[gcc r14-1207] ada: Fix copy-paste mistake in analysis of Exceptional_Cases

[Marc Poulhi?s]

https://gcc.gnu.org/g:78203700fac6e7e39f5a31e892963172263f8239

commit r14-1207-g78203700fac6e7e39f5a31e892963172263f8239
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Fri Mar 3 18:23:58 2023 +0100

    ada: Fix copy-paste mistake in analysis of Exceptional_Cases
    
    Trivial mistakes in copied code.
    
    gcc/ada/
    
            * sem_prag.adb (Analyze_Pragma): Fix references to Exceptional_Cases in
            code copied from handling of Subprogram_Variant.

Diff:
---
 gcc/ada/sem_prag.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 963c6dea238..40636f21fc7 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -16688,7 +16688,7 @@ package body Sem_Prag is
             Ensure_Aggregate_Form (Get_Argument (N, Spec_Id));
 
             --  Chain the pragma on the contract for further processing by
-            --  Analyze_Subprogram_Variant_In_Decl_Part.
+            --  Analyze_Exceptional_Cases_In_Decl_Part.
 
             Add_Contract_Item (N, Defining_Entity (Subp_Decl));
 
@@ -16698,13 +16698,13 @@ package body Sem_Prag is
             if Nkind (Subp_Decl) in N_Subprogram_Body
                                   | N_Subprogram_Body_Stub
             then
-               --  The legality checks of pragma Subprogram_Variant are
+               --  The legality checks of pragma Exceptional_Cases are
                --  affected by the SPARK mode in effect and the volatility
                --  of the context. Analyze all pragmas in a specific order.
 
                Analyze_If_Present (Pragma_SPARK_Mode);
                Analyze_If_Present (Pragma_Volatile_Function);
-               Analyze_Subprogram_Variant_In_Decl_Part (N);
+               Analyze_Exceptional_Cases_In_Decl_Part (N);
             end if;
          end Exceptional_Cases;