2004-06-14 Pascal Obry <obry@gnat.com>

[thirdparty/gcc.git] / gcc / ada / par-ch12.adb

diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb
index 4dd2b1e01cd53c6f72b44bc36719059fa177de57..e9fe553713636fca1d69b91fecd38260d2606125 100644 (file)
--- a/gcc/ada/par-ch12.adb
+++ b/gcc/ada/par-ch12.adb
@@ -203,8 +203,8 @@ package body Ch12 is
 
          Set_Specification (Gen_Decl, P_Subprogram_Specification);
 
-         if Nkind (Defining_Unit_Name (Specification (Gen_Decl)))
-           = N_Defining_Program_Unit_Name
+         if Nkind (Defining_Unit_Name (Specification (Gen_Decl))) =
+                                             N_Defining_Program_Unit_Name
            and then Scope.Last > 0
          then
             Error_Msg_SP ("child unit allowed only at library level");