diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-22 09:06:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-22 09:06:03 +0000 |
| commit | f2fff1d0e56f68d07028a80a6a728860e4f5d669 (patch) | |
| tree | 067e1ea722d85dd028e91a78946026d5e2abaac5 /gcc/testsuite/ada/acats/tests | |
| parent | bfe8bfe97f7c02f2f01e838cc046971711cdac05 (diff) | |
| download | gcc-f2fff1d0e56f68d07028a80a6a728860e4f5d669.tar.gz | |
Update test to be compatible with Ada 2005.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122222 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/ada/acats/tests')
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c9/c96004a.ada | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c9/c96007a.ada | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/ada/acats/tests/c9/c96004a.ada b/gcc/testsuite/ada/acats/tests/c9/c96004a.ada index 14967c46102..f5357fc5130 100644 --- a/gcc/testsuite/ada/acats/tests/c9/c96004a.ada +++ b/gcc/testsuite/ada/acats/tests/c9/c96004a.ada @@ -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"); diff --git a/gcc/testsuite/ada/acats/tests/c9/c96007a.ada b/gcc/testsuite/ada/acats/tests/c9/c96007a.ada index b961d791f0e..beda25fd5e8 100644 --- a/gcc/testsuite/ada/acats/tests/c9/c96007a.ada +++ b/gcc/testsuite/ada/acats/tests/c9/c96007a.ada @@ -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 => |