Cannot initialize entities of limited type?

[Maciej Sobczak <no.spam@no.spam.com>]

Hi,

procedure Hello is

    package P is
       type T is limited private;
       function Constructor return T;
    private
       type T is new Integer;
    end P;

    package body P is
       function Constructor return T is
       begin
          return 7;
       end Constructor;
    end P;

    X : P.T := P.Constructor;  -- line 17

begin
    null;
end Hello;

$ gnatmake hello
gcc -c hello.adb
hello.adb:17:16: cannot initialize entities of limited type
gnatmake: "hello.adb" compilation error
$

I got lost. What's wrong in the code above?

-- 
Maciej Sobczak : http://www.msobczak.com/
Programming    : http://www.msobczak.com/prog/