From c00b8d4a1e84bdefa9c005df9a725377cb185e0b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 22 Feb 2007 10:06:03 +0100 Subject: [PATCH] Update test to be compatible with Ada 2005. From-SVN: r122222 --- gcc/testsuite/ada/acats/tests/c9/c96004a.ada | 2 +- 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 => -- 2.30.2