From f6e00192cdff2c87e744c870c0e5d061ba5b7569 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 12 Sep 2025 19:15:08 +0200 Subject: [PATCH] Testsuite: Fix more spurious failure of ACATS-4 tests This tentatively applies the same tweak to twin testcases. gcc/testsuite/ 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. --- gcc/testsuite/ada/acats-4/tests/cxa/cxai034.a | 8 ++++---- gcc/testsuite/ada/acats-4/tests/cxa/cxai035.a | 4 ++-- gcc/testsuite/ada/acats-4/tests/cxa/cxai036.a | 8 ++++---- 3 files changed, 10 insertions(+), 10 deletions(-) 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 -- 2.47.3