OSDN Git Service

2013-04-11 Robert Dewar <dewar@adacore.com>
[pf3gnuchains/gcc-fork.git] / gcc / ada / sem_util.adb
index 2892c88..1be6c84 100644 (file)
@@ -13421,8 +13421,8 @@ package body Sem_Util is
          if (Is_Implementation_Defined (Val)
                or else
              Is_Implementation_Defined (Scope (Val)))
-              and then not (Ekind_In (Val, E_Package, E_Generic_Package)
-                              and then Is_Library_Level_Entity (Val))
+           and then not (Ekind_In (Val, E_Package, E_Generic_Package)
+                          and then Is_Library_Level_Entity (Val))
          then
             Check_Restriction (No_Implementation_Identifiers, N);
          end if;