diff options
Diffstat (limited to 'gcc/testsuite/ada/acats/tests/c9/c96007a.ada')
| -rw-r--r-- | gcc/testsuite/ada/acats/tests/c9/c96007a.ada | 2 |
1 files changed, 1 insertions, 1 deletions
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 => |