diff options
| author | Laurent Guerby <guerby@gcc.gnu.org> | 2009-05-14 06:44:20 +0000 |
|---|---|---|
| committer | Laurent Guerby <guerby@gcc.gnu.org> | 2009-05-14 06:44:20 +0000 |
| commit | 4d3aadab343ac004710ff3c04686617a895e3796 (patch) | |
| tree | ba2140f9e29d4eded61e2eb71cce3049c821fc8b | |
| parent | c608b4d21ba0306f96c9a86883069558fa9024db (diff) | |
| download | gcc-4d3aadab343ac004710ff3c04686617a895e3796.zip gcc-4d3aadab343ac004710ff3c04686617a895e3796.tar.gz gcc-4d3aadab343ac004710ff3c04686617a895e3796.tar.bz2 | |
c38202a.ada: Use Impdef.
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)
From-SVN: r147519
| -rw-r--r-- | gcc/testsuite/ChangeLog | 14 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c3/c38202a.ada | 5 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c5/c59002c.ada | 7 |
3 files changed, 17 insertions, 9 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2775cdb..28ed5fc 100644 --- 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 --- 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 --- 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; |