FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

c38202a.ada: Use Impdef.

Browse source 
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
This commit is contained in:
Laurent Guerby 2009-05-14 06:44:20 +00:00
parent c608b4d21b
commit 4d3aadab34
3 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gcc/testsuite/ChangeLog
View file

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

5
gcc/testsuite/ada/acats/tests/c3/c38202a.ada
View file

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

7
gcc/testsuite/ada/acats/tests/c5/c59002c.ada
View file

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