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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f315158448c53d67cd355fc850c68921a2cd26f2..0643fe939c4be7d81949704b27edf06e1bab9ba7 100644 (file)
--- 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 1cd0d466caae3ea375b63222dafcddbd826ca041..815594b9f8612910f363e7f65a007ed159a8420d 100644 (file)
--- 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 f48d4cd9096c32dbe5047677b99440126ca4c87f..c4993f7ed05a39303c1e510f51e9b9016ab95b28 100644 (file)
--- 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 881b74af81c020daf9f4b946038224fc0dc4d97d..9e261247bcb2450ed07978606da2ee8835d48160 100644 (file)
--- 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 3561a1fe1af073574d310be882dcd9eb1dff986c..ee9953ba4adbaeb79f390a9676528b7941867543 100644 (file)
--- 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 4071276cac8b3782d3a0422f94b8e93478b2289a..8774314d58dd601d64638878cd45e34e8fe405af 100644 (file)
--- 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;