From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 22 Feb 2007 09:06:03 +0000 (+0000)
Subject: Update test to be compatible with Ada 2005.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=f2fff1d0e56f68d07028a80a6a728860e4f5d669;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/testsuite/ada/acats/tests/c9/c96004a.ada b/gcc/testsuite/ada/acats/tests/c9/c96004a.ada
index 14967c46102e..f5357fc5130e 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 b961d791f0e4..beda25fd5e83 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 =>