[Ada] Avoid repeated analysis of constraint ranges

gcc/ada/

	* sem_ch3.adb (Constraint_Index): Remove redundant problematic
	analysis.

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index d4cd8d7e86a88b54d2f9205fa064bd979d8978b7..e6309e6868487ae490413e3d83ec64d75b775a7f 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -14171,8 +14171,6 @@ package body Sem_Ch3 is
       then
          --  A Range attribute will be transformed into N_Range by Resolve
 
-         Analyze (S);
-         Set_Etype (S, T);
          R := S;
 
          Process_Range_Expr_In_Decl (R, T);