From fb19dec9b4b50a8f39a48195347d5d60dc687c3b Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 5 Sep 2011 15:02:49 +0200
Subject: [PATCH] Fix typo.

From-SVN: r178533
---
 gcc/ada/lib-xref-alfa.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/lib-xref-alfa.adb b/gcc/ada/lib-xref-alfa.adb
index c58f600d88c6..dd3c78cb2dd5 100644
--- a/gcc/ada/lib-xref-alfa.adb
+++ b/gcc/ada/lib-xref-alfa.adb
@@ -627,7 +627,7 @@ package body Alfa is
                   --  references.
 
                   if Present (Etype (E))
-                    and then Ekind (Etype (E)) in E_Concurrent_Kind
+                    and then Ekind (Etype (E)) in Concurrent_Kind
                   then
                      return False;
                   end if;
-- 
2.47.2