From c03abfba16b54d72b0ca4b827e37fc8bc7779de9 Mon Sep 17 00:00:00 2001 From: Laurent GUERBY Date: Thu, 26 Jan 2006 20:39:16 +0000 Subject: re PR ada/21317 (ACATS c954025 c954026 c99004a failures) 2006-01-26 Laurent GUERBY PR ada/21317 * ada/acats/support/impdef.a: Add One_Long_Second. * ada/acats/tests/c9/c94025.a: Use One_Long_Second. * ada/acats/tests/c9/c94026.a: Likewise. * ada/acats/tests/c9/c97305c.ada: Likewise. * ada/acats/tests/c9/c99004a.ada: Likewise. From-SVN: r110270 --- gcc/testsuite/ChangeLog | 9 +++++++++ gcc/testsuite/ada/acats/support/impdef.a | 1 + gcc/testsuite/ada/acats/tests/c9/c954025.a | 6 +++--- gcc/testsuite/ada/acats/tests/c9/c954026.a | 6 +++--- gcc/testsuite/ada/acats/tests/c9/c97305c.ada | 4 ++-- gcc/testsuite/ada/acats/tests/c9/c99004a.ada | 4 ++-- 6 files changed, 20 insertions(+), 10 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f315158..0643fe93 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2006-01-26 Laurent GUERBY + + PR ada/21317 + * ada/acats/support/impdef.a: Add One_Long_Second. + * ada/acats/tests/c9/c94025.a: Use One_Long_Second. + * ada/acats/tests/c9/c94026.a: Likewise. + * ada/acats/tests/c9/c97305c.ada: Likewise. + * ada/acats/tests/c9/c99004a.ada: Likewise. + 2005-01-26 Paul Thomas PR fortran/25964 diff --git a/gcc/testsuite/ada/acats/support/impdef.a b/gcc/testsuite/ada/acats/support/impdef.a index 1cd0d46..815594b 100644 --- a/gcc/testsuite/ada/acats/support/impdef.a +++ b/gcc/testsuite/ada/acats/support/impdef.a @@ -339,6 +339,7 @@ package ImpDef is --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-- One_Second : constant Duration := 0.001; + One_Long_Second : constant Duration := 0.1; end ImpDef; diff --git a/gcc/testsuite/ada/acats/tests/c9/c954025.a b/gcc/testsuite/ada/acats/tests/c9/c954025.a index f48d4cd..c4993f7 100644 --- a/gcc/testsuite/ada/acats/tests/c9/c954025.a +++ b/gcc/testsuite/ada/acats/tests/c9/c954025.a @@ -53,11 +53,11 @@ with Report; with ImpDef; procedure C954025 is Verbose : constant Boolean := False; - Countdown_Amount : constant Duration := 2.0 * Impdef.One_Second; + Countdown_Amount : constant Duration := 2.0 * Impdef.One_Long_Second; Plenty_Of_Time : constant Duration := - Countdown_Amount + ImpDef.Clear_Ready_Queue + 1.0 * Impdef.One_Second; + Countdown_Amount + ImpDef.Clear_Ready_Queue + 1.0 * Impdef.One_Long_Second; Not_Enough_Time : constant Duration := - Countdown_Amount - 0.5 * Impdef.One_Second; + Countdown_Amount - 0.5 * Impdef.One_Long_Second; begin Report.Test ("C954025", "Check that if the original entry" & diff --git a/gcc/testsuite/ada/acats/tests/c9/c954026.a b/gcc/testsuite/ada/acats/tests/c9/c954026.a index 881b74a..9e26124 100644 --- a/gcc/testsuite/ada/acats/tests/c9/c954026.a +++ b/gcc/testsuite/ada/acats/tests/c9/c954026.a @@ -58,10 +58,10 @@ with Impdef; procedure C954026 is Verbose : constant Boolean := False; Final_Po_Reached : Boolean := False; - Allowed_Time : constant Duration := 2.0 * Impdef.One_Second; + Allowed_Time : constant Duration := 2.0 * Impdef.One_Long_Second; Plenty_Of_Time : constant Duration := - Allowed_Time + Impdef.Clear_Ready_Queue + 1.0 * Impdef.One_Second; - Not_Enough_Time : constant Duration := Allowed_Time - 0.5 * Impdef.One_Second; + Allowed_Time + Impdef.Clear_Ready_Queue + 1.0 * Impdef.One_Long_Second; + Not_Enough_Time : constant Duration := Allowed_Time - 0.5 * Impdef.One_Long_Second; begin Report.Test ("C954026", "Check that if the original entry" & diff --git a/gcc/testsuite/ada/acats/tests/c9/c97305c.ada b/gcc/testsuite/ada/acats/tests/c9/c97305c.ada index 3561a1f..ee9953b 100644 --- a/gcc/testsuite/ada/acats/tests/c9/c97305c.ada +++ b/gcc/testsuite/ada/acats/tests/c9/c97305c.ada @@ -56,7 +56,7 @@ BEGIN TASK BODY T IS BEGIN - DELAY 10.0 * Impdef.One_Second; + DELAY 10.0 * Impdef.One_Long_Second; ACCEPT E (B : IN OUT BOOLEAN) DO B := IDENT_BOOL (TRUE); END E; @@ -68,7 +68,7 @@ BEGIN T.E (RENDEZVOUS_OCCURRED); STATEMENTS_AFTER_CALL_EXECUTED := IDENT_BOOL (TRUE); OR - DELAY DELAY_IN_MINUTES * 60.0 * Impdef.One_Second; + DELAY DELAY_IN_MINUTES * 60.0 * Impdef.One_Long_Second; FAILED ("TIMED ENTRY CALL NOT ACCEPTED AFTER" & POSITIVE'IMAGE(DELAY_IN_MINUTES) & " MINUTES ELAPSED"); diff --git a/gcc/testsuite/ada/acats/tests/c9/c99004a.ada b/gcc/testsuite/ada/acats/tests/c9/c99004a.ada index 4071276..8774314 100644 --- a/gcc/testsuite/ada/acats/tests/c9/c99004a.ada +++ b/gcc/testsuite/ada/acats/tests/c9/c99004a.ada @@ -113,7 +113,7 @@ BEGIN BEGIN ACCEPT E (1); ABORT PKG1.T1; - DELAY 5.0 * Impdef.One_Second; + DELAY 5.0 * Impdef.One_Long_Second; D1 := CHECK ("F", F'CALLABLE, FALSE, F'TERMINATED, TRUE, D); END MAIN_TASK; @@ -153,7 +153,7 @@ BEGIN BEGIN ACCEPT E (1); ABORT T2; - DELAY 5.0 * Impdef.One_Second; + DELAY 5.0 * Impdef.One_Long_Second; D2 := CHECK ("T2", T2'CALLABLE, FALSE, T2'TERMINATED, TRUE, D); END MAIN_TASK; -- cgit v1.1