aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/ada
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2007-02-22 10:06:03 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2007-02-22 10:06:03 +0100
commitc00b8d4a1e84bdefa9c005df9a725377cb185e0b (patch)
tree067e1ea722d85dd028e91a78946026d5e2abaac5 /gcc/testsuite/ada
parentb3832a9f88b62b7ec6a81743febef8cc5369d535 (diff)
downloadgcc-c00b8d4a1e84bdefa9c005df9a725377cb185e0b.zip
gcc-c00b8d4a1e84bdefa9c005df9a725377cb185e0b.tar.gz
gcc-c00b8d4a1e84bdefa9c005df9a725377cb185e0b.tar.bz2
Update test to be compatible with Ada 2005.
From-SVN: r122222
Diffstat (limited to 'gcc/testsuite/ada')
-rw-r--r--gcc/testsuite/ada/acats/tests/c9/c96004a.ada2
-rw-r--r--gcc/testsuite/ada/acats/tests/c9/c96007a.ada2
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 14967c4..f5357fc 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 b961d79..beda25f 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 =>