Re: Issue with GNAT GPL 2009 and GtkAda

[Stephen Leake <stephen_leake@stephe-leake.org>]

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> writes:

> Here is a test:
>
> with Ada.Finalization;
> with Ada.Text_IO;  use Ada.Text_IO;
>
> procedure Test_Anonymous_Access is
>    package P is
>       type T is new Ada.Finalization.Controlled with null record;
>       overriding procedure Finalize (X : in out T);
>    end P;
>    package body P is
>       procedure Finalize (X : in out T) is
>       begin
>          Put_Line ("Finalized");
>       end Finalize;
>    end P;
>    use P;
> begin
>    declare
>       X : access T := new T;
>    begin
>       Put_Line ("Created");
>    end;
>    Put_Line ("Left the scope");
> end Test_Anonymous_Access;
>
> It should print:
>
> Created
> Finalized
> Left the scope

GNAT 6.2.1 on Windows does this.

-- 
-- Stephe