Re: [Ada] Fix PR ada/121532

[Eric Botcazou]

> This PR is about spurious failures of the ACATS-4 test cxai033, which uses
> tasking.  This tentatively applies the same tweak as in other similar cases.

Applied to cxai03[4-6] as well.


        PR ada/121532
        * ada/acats-4/tests/cxa/cxai034.a: Use Long_Switch_To_New_Task
        constant instead of Switch_To_New_Task in delay statements.
        * ada/acats-4/tests/cxa/cxai035.a: Likewise.
        * ada/acats-4/tests/cxa/cxai036.a: Likewise.

-- 
Eric Botcazou
diff --git a/gcc/testsuite/ada/acats-4/tests/cxa/cxai034.a b/gcc/testsuite/ada/acats-4/tests/cxa/cxai034.a
index ebe88f38ef0..b39fb84ce34 100644
--- a/gcc/testsuite/ada/acats-4/tests/cxa/cxai034.a
+++ b/gcc/testsuite/ada/acats-4/tests/cxa/cxai034.a
@@ -143,7 +143,7 @@ begin
 
    -- Give time for Reader_1 to activate.
 
-   delay Impdef.Switch_To_New_Task;
+   delay Impdef.Long_Switch_To_New_Task;
 
    if not Reader_1_Blocked then
 
@@ -172,7 +172,7 @@ begin
 
       -- Give time for Writer_1 to activate;
 
-      delay Impdef.Switch_To_New_Task;
+      delay Impdef.Long_Switch_To_New_Task;
 
       if Reader_1_Blocked then
 
@@ -187,7 +187,7 @@ begin
 
    -- Give time for Writer_3 to activate.
 
-   delay Impdef.Switch_To_New_Task;
+   delay Impdef.Long_Switch_To_New_Task;
 
    if not Writer_3_Blocked then
 
@@ -216,7 +216,7 @@ begin
 
       -- Give time for Reader_3 to activate;
 
-      delay Impdef.Switch_To_New_Task;
+      delay Impdef.Long_Switch_To_New_Task;
 
       if Writer_3_Blocked then
 
diff --git a/gcc/testsuite/ada/acats-4/tests/cxa/cxai035.a b/gcc/testsuite/ada/acats-4/tests/cxa/cxai035.a
index 0c4af5106d2..51993c70b4a 100644
--- a/gcc/testsuite/ada/acats-4/tests/cxa/cxai035.a
+++ b/gcc/testsuite/ada/acats-4/tests/cxa/cxai035.a
@@ -163,7 +163,7 @@ begin
 
    -- Give time for Reader_1 to activate.
 
-   delay Impdef.Switch_To_New_Task;
+   delay Impdef.Long_Switch_To_New_Task;
 
    if not Reader_1_Blocked then
 
@@ -192,7 +192,7 @@ begin
 
       -- Give time for Writer_1 to activate;
 
-      delay Impdef.Switch_To_New_Task;
+      delay Impdef.Long_Switch_To_New_Task;
 
       if Reader_1_Blocked then
 
diff --git a/gcc/testsuite/ada/acats-4/tests/cxa/cxai036.a b/gcc/testsuite/ada/acats-4/tests/cxa/cxai036.a
index 9b9ef0987aa..4bb605aba28 100644
--- a/gcc/testsuite/ada/acats-4/tests/cxa/cxai036.a
+++ b/gcc/testsuite/ada/acats-4/tests/cxa/cxai036.a
@@ -190,7 +190,7 @@ begin
 
    -- Give time for Reader_1 to activate.
 
-   delay Impdef.Switch_To_New_Task;
+   delay Impdef.Long_Switch_To_New_Task;
 
    if not Reader_1_Blocked then
 
@@ -219,7 +219,7 @@ begin
 
       -- Give time for Writer_1 to activate;
 
-      delay Impdef.Switch_To_New_Task;
+      delay Impdef.Long_Switch_To_New_Task;
 
       if Reader_1_Blocked then
 
@@ -234,7 +234,7 @@ begin
 
    -- Give time for Writer_3 to activate.
 
-   delay Impdef.Switch_To_New_Task;
+   delay Impdef.Long_Switch_To_New_Task;
 
    if not Writer_3_Blocked then
 
@@ -263,7 +263,7 @@ begin
 
       -- Give time for Reader_3 to activate;
 
-      delay Impdef.Switch_To_New_Task;
+      delay Impdef.Long_Switch_To_New_Task;
 
       if Writer_3_Blocked then