From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-prs-return-28775-listarch-gcc-prs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 24650 invoked by alias); 1 Feb 2003 18:16:01 -0000
Mailing-List: contact gcc-prs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-prs/>
List-Post: <mailto:gcc-prs@gcc.gnu.org>
List-Help: <mailto:gcc-prs-help@gcc.gnu.org>
Sender: gcc-prs-owner@gcc.gnu.org
Received: (qmail 24591 invoked by uid 71); 1 Feb 2003 18:16:01 -0000
Resent-Date: 1 Feb 2003 18:16:01 -0000
Resent-Message-ID: <20030201181601.24589.qmail@sources.redhat.com>
Resent-From: gcc-gnats@gcc.gnu.org (GNATS Filer)
Resent-Cc: gcc-prs@gcc.gnu.org, gcc-bugs@gcc.gnu.org
Resent-Reply-To: gcc-gnats@gcc.gnu.org, simon@pushface.org
Received: (qmail 22829 invoked by uid 48); 1 Feb 2003 18:14:22 -0000
Message-Id: <20030201181422.22828.qmail@sources.redhat.com>
Date: Sat, 01 Feb 2003 18:16:00 -0000
From: simon@pushface.org
Reply-To: simon@pushface.org
To: gcc-gnats@gcc.gnu.org
X-Send-Pr-Version: gnatsweb-2.9.3 (1.1.1.1.2.31)
Subject: ada/9536: Constraint error on valid Ada.Calendar.Time_Of
X-SW-Source: 2003-02/txt/msg00012.txt.bz2
List-Id: <gcc-prs.sourceware.org>


>Number:         9536
>Category:       ada
>Synopsis:       Constraint error on valid Ada.Calendar.Time_Of
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Sat Feb 01 18:16:01 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator:     Simon Wright
>Release:        3.4 20030201 (experimental)
>Organization:
>Environment:
i686-pc-linux-gnu
>Description:
The program below gives a constraint error when run:

smaug.pushface.org[8]$ ./time_constraint 

raised CONSTRAINT_ERROR : a-calend.adb:419 explicit raise

with Ada.Calendar;
procedure Time_Constraint is
   Epoch : constant Ada.Calendar.Time :=
     Ada.Calendar.Time_Of (Year => 1970,
                           Month => 1,
                           Day => 1);
begin
   null;
end Time_Constraint;
>How-To-Repeat:
Compile & run the program.
>Fix:
Looks like something wrong with 'Valid ..?
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: application/octet-stream; name="time_constraint.adb"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="time_constraint.adb"

d2l0aCBBZGEuQ2FsZW5kYXI7CnByb2NlZHVyZSBUaW1lX0NvbnN0cmFpbnQgaXMKICAgRXBvY2gg
OiBjb25zdGFudCBBZGEuQ2FsZW5kYXIuVGltZSA6PQogICAgIEFkYS5DYWxlbmRhci5UaW1lX09m
IChZZWFyID0+IDE5NzAsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIE1vbnRoID0+IDEsCiAg
ICAgICAgICAgICAgICAgICAgICAgICAgIERheSA9PiAxKTsKYmVnaW4KICAgbnVsbDsKZW5kIFRp
bWVfQ29uc3RyYWludDsK