2009-05-14 Laurent GUERBY <laurent@guerby.net>

        * ada/acats/tests/c3/c38202a.ada: Use Impdef.
        * ada/acats/tests/c5/c59002c.ada: Likewise.

(and fix ChangeLog formating of previous entry)

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147519 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2775cdb..28ed5fc 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,8 +1,14 @@
+2009-05-14  Laurent GUERBY  <laurent@guerby.net>
+       
+        * ada/acats/tests/c3/c38202a.ada: Use Impdef.
+        * ada/acats/tests/c5/c59002c.ada: Likewise.
+       
 2009-05-13  Taras Glek  <tglek@mozilla.com>
-       * g++.dg/plugin/attribute_plugin-test-1.C Testcase input for custom attributes and decl smashing
-       * g++.dg/plugin/attribute_plugin.c Testcase plugin to test user attributes
-       * g++.dg/plugin/dumb_plugin.c Fixed typo
-       * g++.dg/plugin/plugin.exp Added attribute_plugin test 
+
+       * g++.dg/plugin/attribute_plugin-test-1.C Testcase input for custom attributes and decl smashing
+       * g++.dg/plugin/attribute_plugin.c Testcase plugin to test user attributes
+       * g++.dg/plugin/dumb_plugin.c Fixed typo
+       * g++.dg/plugin/plugin.exp Added attribute_plugin test 
 
 2009-05-14  Jakub Jelinek  <jakub@redhat.com>
 

diff --git a/gcc/testsuite/ada/acats/tests/c3/c38202a.ada b/gcc/testsuite/ada/acats/tests/c3/c38202a.ada
index e0b3b85..d0350fc 100644 (file)
--- a/gcc/testsuite/ada/acats/tests/c3/c38202a.ada
+++ b/gcc/testsuite/ada/acats/tests/c3/c38202a.ada
@@ -30,6 +30,7 @@
 -- AH  9/12/86
 -- EDS 7/14/98  AVOID OPTIMIZATION
 
+with Impdef;
 WITH REPORT; USE REPORT;
 PROCEDURE C38202A IS
 BEGIN 
@@ -84,7 +85,7 @@ BEGIN
                P.GO_ON;
                ACCEPT TSK_DONE;
                WHILE (NOT P'TERMINATED AND COUNTER <= 3) LOOP
-                    DELAY 10.0;
+                    DELAY 10.0 * Impdef.One_Second;
                     COUNTER := COUNTER + 1;
                END LOOP;
 
@@ -166,7 +167,7 @@ BEGIN
                F1.ALL.GO_ON;
                ACCEPT TSK_DONE;
                WHILE (NOT F1'TERMINATED AND COUNTER <= 3) LOOP
-                    DELAY 10.0;
+                    DELAY 10.0 * Impdef.One_Second;
                     COUNTER := COUNTER + 1;
                END LOOP;
 

diff --git a/gcc/testsuite/ada/acats/tests/c5/c59002c.ada b/gcc/testsuite/ada/acats/tests/c5/c59002c.ada
index a81c1c1..cc01a7e 100644 (file)
--- a/gcc/testsuite/ada/acats/tests/c5/c59002c.ada
+++ b/gcc/testsuite/ada/acats/tests/c5/c59002c.ada
@@ -33,6 +33,7 @@
 -- SPS 12/13/82
 -- PWN 11/30/94 REMOVED PRAGMA PRIORITY INSTANCES FOR ADA 9X.
 
+with Impdef;
 WITH REPORT;
 WITH SYSTEM;
 USE SYSTEM;
@@ -64,7 +65,7 @@ BEGIN
           BEGIN
 
                WHILE  E2'COUNT <= 0  LOOP
-                    DELAY 1.0 ;
+                    DELAY 1.0 * Impdef.One_Second;
                END LOOP;
 
                SELECT 
@@ -76,7 +77,7 @@ BEGIN
                     GOTO  L123 ;
                     FAILED( "'GOTO' NOT OBEYED (1)" );
                OR
-                    DELAY 10.0 ;
+                    DELAY 10.0 * Impdef.One_Second;
                     FAILED( "DELAY ALTERNATIVE SELECTED (1)" );
                END SELECT;
 
@@ -116,7 +117,7 @@ BEGIN
                          FAILED( " E2  ACCEPTED; NO ENTRY CALL (2)" );
                     END ;
                OR
-                    DELAY 10.0 ;
+                    DELAY 10.0 * Impdef.One_Second;
                     GOTO  L321 ;
                     FAILED( "'GOTO' NOT OBEYED (2)" );
                END SELECT;