From 60b803a7f19a5b4df6694f9a579050996b8dfba4 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Sun, 24 Jan 2021 16:02:49 +0100
Subject: [PATCH] [Ada] Avoid repeated analysis of constraint ranges

gcc/ada/

	* sem_ch3.adb (Constraint_Index): Remove redundant problematic
	analysis.
---
 gcc/ada/sem_ch3.adb | 2 --
 1 file changed, 2 deletions(-)

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index d4cd8d7..e6309e6 100644
--- 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);
-- 
2.7.4