From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 16 Mar 2023 17:38:20 +0000 (+0100)
Subject: ada: Minor tweak in condition
X-Git-Tag: basepoints/gcc-15~8877
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9df0c1198ecba478ac27d28765224412ee6606e9;p=thirdparty%2Fgcc.git

ada: Minor tweak in condition

gcc/ada/

	* sem_util.adb (Compile_Time_Constraint_Error): Test the Ekind.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index aabd01747fc3..ea5be2ff4b56 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -6110,7 +6110,7 @@ package body Sem_Util is
 
                      Conc_Typ : constant Entity_Id :=
                        (if Present (Init_Proc_Type)
-                          and then Init_Proc_Type in E_Record_Type_Id
+                          and then Ekind (Init_Proc_Type) = E_Record_Type
                         then Corresponding_Concurrent_Type (Init_Proc_Type)
                         else Empty);