diff options
| author | Laurent GUERBY <laurent@guerby.net> | 2006-01-26 20:39:16 +0000 |
|---|---|---|
| committer | Laurent Guerby <guerby@gcc.gnu.org> | 2006-01-26 20:39:16 +0000 |
| commit | c03abfba16b54d72b0ca4b827e37fc8bc7779de9 (patch) | |
| tree | d30e609bb04b2861c0a4eb1a1aba8d7aa43a03cd | |
| parent | 20236f90d949c062847aa4b7512db999c4d82f12 (diff) | |
| download | gcc-c03abfba16b54d72b0ca4b827e37fc8bc7779de9.zip gcc-c03abfba16b54d72b0ca4b827e37fc8bc7779de9.tar.gz gcc-c03abfba16b54d72b0ca4b827e37fc8bc7779de9.tar.bz2 | |
re PR ada/21317 (ACATS c954025 c954026 c99004a failures)
2006-01-26 Laurent GUERBY <laurent@guerby.net>
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/support/impdef.a | 1 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c9/c954025.a | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c9/c954026.a | 6 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c9/c97305c.ada | 4 | ||||
| -rw-r--r-- | 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 <laurent@guerby.net> + + 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 <pault@gcc.gnu.org> 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; |