Package: gnat-3.3
Version: 1:3.3.2-0pre3
Severity: normal
As far as I can tell, this program is valid. It runs fine under
gnat 3.14p-3 in fact:
--- cut ---
[517] [snoopy:bam] ~/tmp/ada/bugs >cat test_calendar.adb
with Ada.Calendar;
use Ada.Calendar;
procedure Test_Calendar is
T : Time;
begin
T := Time_Of(2002,8,18,0.0);
end Test_Calendar;
--- cut ---
It compiles find with gnat 3.3 with no warnings:
--- cut ---
[515] [snoopy:bam] ~/tmp/ada/bugs >gnatmake -v test_calendar.adb
GNATMAKE 3.3.2 20030908 (Debian prerelease) Copyright 1995-2002 Free Software
Foundation, Inc.
"test_calendar.ali" being checked ...
-> "test_calendar.adb" time stamp mismatch
gcc-3.3 -c test_calendar.adb
End of compilation
gnatbind -x test_calendar.ali
gnatlink test_calendar.ali
--- cut ---
But when running it it comes with a constraint error:
--- cut ---
[516] [snoopy:bam] ~/tmp/ada/bugs >./test_calendar
raised CONSTRAINT_ERROR : a-calend.adb:419 explicit raise
--- cut ---
I cannot see any good reason for this constraint error.
-- System Information:
Debian Release: testing/unstable
Architecture: i386
Kernel: Linux snoopy 2.4.21 #1 Tue Aug 26 17:39:08 EST 2003 i686
Locale: LANG=C, LC_CTYPE=
Versions of packages gnat-3.3 depends on:
ii gcc-3.3 1:3.3.2-0pre2 The GNU C compiler
ii gcc-3.3-base 1:3.3.2-0pre2 The GNU Compiler Collection (base
ii libc6 2.3.2-6 GNU C Library: Shared libraries an
-- no debconf information
