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

Update test to be compatible with Ada 2005. 

From-SVN: r122222
This commit is contained in:
Arnaud Charlet 2007-02-22 10:06:03 +01:00
parent b3832a9f88
commit c00b8d4a1e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/testsuite/ada/acats/tests/c9/c96004a.ada
View File

@ -92,7 +92,7 @@ BEGIN
END;
BEGIN
YR := IDENT_INT(2100);
YR := IDENT_INT(YEAR_NUMBER'LAST + 1);
FAILED ("EXCEPTION NOT RAISED - (A)3");
IF NOT EQUAL (YR, YR) THEN
COMMENT ("NO EXCEPTION RAISED");

2
gcc/testsuite/ada/acats/tests/c9/c96007a.ada
View File

@ -136,7 +136,7 @@ BEGIN
END;
BEGIN
BAD_TIME := TIME_OF (2100, 8, 13);
BAD_TIME := TIME_OF (YEAR_NUMBER'LAST + 1, 8, 13);
FAILED ("EXCEPTION NOT RAISED - 2100 (B)");
EXCEPTION
WHEN CONSTRAINT_ERROR =>