From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 19 Oct 2022 10:39:42 +0000 (+0200)
Subject: ada: Remove redundant line in Analyze_Qualified_Expression
X-Git-Tag: basepoints/gcc-14~3420
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=786c6ba5a51f54c404dd491523788f7359a29a91;p=thirdparty%2Fgcc.git

ada: Remove redundant line in Analyze_Qualified_Expression

The same statement is present a few lines above.

gcc/ada/

	* sem_ch4.adb (Analyze_Qualified_Expression): Remove redundant
	line.
---

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index f136e9715d7c..489fb47247a2 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -4389,8 +4389,6 @@ package body Sem_Ch4 is
             end loop;
          end if;
       end if;
-
-      Set_Etype  (N, T);
    end Analyze_Qualified_Expression;
 
    -----------------------------------