https://gcc.gnu.org/g:f6e00192cdff2c87e744c870c0e5d061ba5b7569
commit r16-3833-gf6e00192cdff2c87e744c870c0e5d061ba5b7569 Author: Eric Botcazou <[email protected]> Date: Fri Sep 12 19:15:08 2025 +0200 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. Diff: --- 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 ebe88f38ef0c..b39fb84ce349 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 0c4af5106d2b..51993c70b4a1 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 9b9ef0987aaa..4bb605aba286 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
