OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Laurent GUERBY 2006-01-26 20:39:16 +00:00 committed by Laurent Guerby
parent 20236f90d9
commit c03abfba16
6 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/ChangeLog
View File

@ -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

1
gcc/testsuite/ada/acats/support/impdef.a
View File

@ -339,6 +339,7 @@ package ImpDef is
--=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
One_Second : constant Duration := 0.001;
One_Long_Second : constant Duration := 0.1;
end ImpDef;

6
gcc/testsuite/ada/acats/tests/c9/c954025.a
View File

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

6
gcc/testsuite/ada/acats/tests/c9/c954026.a
View File

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

4
gcc/testsuite/ada/acats/tests/c9/c97305c.ada
View File

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

4
gcc/testsuite/ada/acats/tests/c9/c99004a.ada
View File

@ -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;