From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!newsfeed.fsmpi.rwth-aachen.de!newsfeed.straub-nv.de!proxad.net!feeder1-2.proxad.net!cleanfeed3-b.proxad.net!nnrp5-1.free.fr!not-for-mail
Subject: Re: Predicate and value attribute
Newsgroups: comp.lang.ada
References: <56a360fa$0$3294$426a74cc@news.free.fr>
 <56a63690$0$3033$426a74cc@news.free.fr>
 <ecf9f205-b5ed-464f-9c8e-72400f412957@googlegroups.com>
From: Xavier Petit <xpetit@becoast.fr>
Date: Tue, 26 Jan 2016 12:09:04 +0100
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101
 Icedove/38.4.0
MIME-Version: 1.0
In-Reply-To: <ecf9f205-b5ed-464f-9c8e-72400f412957@googlegroups.com>
Content-Type: text/plain; charset=windows-1252; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <56a753d0$0$3059$426a34cc@news.free.fr>
Organization: Guest of ProXad - France
NNTP-Posting-Date: 26 Jan 2016 12:09:04 CET
NNTP-Posting-Host: 78.217.21.11
X-Trace: 1453806544 news-4.free.fr 3059 78.217.21.11:54217
X-Complaints-To: abuse@proxad.net
Xref: news.eternal-september.org comp.lang.ada:29242
Date: 2016-01-26T12:09:04+01:00
List-Id: <comp.lang.ada>

> I suggest you post your code which triggered the error. So, we can use the same reference.
>
> Anh Vo
>

Ok, here the main file is sandbox.adb =>

procedure Sandbox is
    subtype Number is String
      with Dynamic_Predicate => Integer'Value (Number) in -1 .. 5;

    subtype Number2 is String
      with Dynamic_Predicate => Integer'Value (Number2) in -1 | 5;

    function Check_Number3 (Item : String) return Boolean
    is
      (Integer'Value (Item) in -1 .. 5);

    subtype Number3 is String
      with Dynamic_Predicate => Check_Number3 (Number3);

    Test : constant Number := "-1";
    Test2 : constant Number2 := "-1";
    Test3 : constant Number3 := "-1";

begin
    null;
end;


$ gnatmake sandbox.adb
gcc -c sandbox.adb
sandbox.adb:3:39: "Value_Integer" is undefined
compilation abandoned due to previous error
gnatmake: "sandbox.adb" compilation error

$ gnatmake --version
GNATMAKE GPL 2015 (20150428-49)

Adacore GNAT 2015

The subtype "Number" seems to be wrong whereas "Number2" and "Number3" 
are valid.

-- 
Xavier Petit