par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array return Error rather…

par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array return Error rather than Empty so that analysis can proceed.

	* par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array
        return Error rather than Empty so that analysis can proceed.

From-SVN: r46517

gcc/ada/ChangeLog

 2001-10-25  Ed Schonberg <schonber@gnat.com>
 
+	* par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array 
+        return Error rather than Empty so that analysis can proceed.
+
+2001-10-25  Ed Schonberg <schonber@gnat.com>
+
 	* sem_util.adb (Enter_Name): better handling of cascaded error 
         messages when a unit appears in its own context.
 

gcc/ada/par-ch3.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.148 $
+--                            $Revision$
 --                                                                          --
 --          Copyright (C) 1992-2001, Free Software Foundation, Inc.         --
 --                                                                          --
@@ -796,7 +796,7 @@ package body Ch3 is
       if Token = Tok_Array then
          Error_Msg_SC ("anonymous array definition not allowed here");
          Discard_Junk_Node (P_Array_Type_Definition);
-         return Empty;
+         return Error;
 
       else
          Type_Node := P_Qualified_Simple_Name_Resync;