[Ada] Only unnest subprograms if no previous errors were detected

2018-07-16  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* frontend.adb: Only unnest subprograms if no previous errors were
	 detected.

From-SVN: r262729

gcc/ada/ChangeLog

+2018-07-16  Arnaud Charlet  <charlet@adacore.com>
+
+	* frontend.adb: Only unnest subprograms if no previous errors were
+	 detected.
+
 2018-07-16  Ed Schonberg  <schonberg@adacore.com>
 
 	* exp_ch7.adb (Check_Unnesting_Elaboration_Code): Handle loops that

gcc/ada/frontend.adb

@@ -466,7 +466,9 @@ begin
 
             --  At this stage we can unnest subprogram bodies if required
 
-            Exp_Unst.Unnest_Subprograms (Cunit (Main_Unit));
+            if Total_Errors_Detected = 0 then
+               Exp_Unst.Unnest_Subprograms (Cunit (Main_Unit));
+            end if;
 
             --  List library units if requested