Message ID | 20201216131535.GA69960@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Fix typo in checks for implementation defined units | expand |
diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb --- 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;