Add stopgap fix for PR ada/99360

gcc/ada/
	PR ada/99360
	* exp_ch6.adb (Might_Have_Tasks): Return False when the type is the
	class-wide type of a predefined iterator type.

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 2cd40e42f47a2a5a1355cfa63cbc48657d175d34..c1dc371786d2ae887bf99749ea849873c1ac9206 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -9616,7 +9616,15 @@ package body Exp_Ch6 is
         and then not No_Run_Time_Mode
         and then (Has_Task (Typ)
                     or else (Is_Class_Wide_Type (Typ)
-                               and then Is_Limited_Record (Typ)));
+                               and then Is_Limited_Record (Typ)))
+
+        --  Predefined iterator types do not contain tasks, even when
+        --  class-wide.
+
+        and then not (In_Predefined_Unit (Typ)
+                        and then Chars (Typ) in
+                          Name_Find ("Tforward_iteratorC") |
+                          Name_Find ("Treversible_iteratorC"));
    end Might_Have_Tasks;
 
    ----------------------------