Re: Predicate and value attribute

[Xavier Petit <xpetit@becoast.fr>]

> 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