From: Piotr Trojanek <trojanek@adacore.com>
Date: Sun, 29 Nov 2020 21:54:21 +0000 (+0100)
Subject: [Ada] Fix typo in checks for implementation defined units
X-Git-Tag: basepoints/gcc-12~2130
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=55337de847075206be0c9f3154650ad17fcf2b28;p=thirdparty%2Fgcc.git

[Ada] Fix typo in checks for implementation defined units

gcc/ada/

	* impunit.adb (Not_Impl_Defined_Unit): Fix typo in iteration
	over Non_Imp_File_Names_12 array.
---

diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb
index 2cde4305570a..e7262cd62e53 100644
--- a/gcc/ada/impunit.adb
+++ b/gcc/ada/impunit.adb
@@ -999,7 +999,7 @@ package body Impunit is
 
       for J in Non_Imp_File_Names_12'Range loop
          if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J).Fname then
-            return Non_Imp_File_Names_95 (J).RMdef
+            return Non_Imp_File_Names_12 (J).RMdef
               and then Ada_Version >= Ada_2012;
          end if;
       end loop;