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

Update test to be compatible with Ada 2005.

Browse source 
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 =>