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

gcc/testsuite/ChangeLog

+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

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;
 

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" &

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" &

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");

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;