GNAT / Aonix compiler incompatibility (Was: Prefix to 'ACCESS must either statically match... But why?)

[wojtek@power.com.pl (Wojtek Narczynski)]

Vadim Godunko <vgodunko@vipmail.ru> wrote in message news:<mailman.1.1043696103.30820.comp.lang.ada@ada.eu.org>...
> 
> What's wrong?
> 

Well, I don't know... 

Could you analyze this source for compliance with RM also, please?

Regards,
Wojtek Narczynski


with ada.strings.Fixed; use ada.strings.Fixed;
with Ada.Text_IO; use Ada.Text_IO;

procedure tiny is
-- Is this code valid ?!

	type string_access is access all string;

	subtype Len_Positive is Positive range 1 .. 20;
	subtype Len_String is String ( len_Positive );
	subtype Len_String_Access is String_Access( Len_Positive );

	LS : aliased Len_String := Len_String'Length * "*";


	-- \/ This compiles with GNAT, but not with Aonix
	LSA : Len_String_Access := LS'access;


begin

	-- \/ This compiles with GNAT, but not with Aonix
	Put_Line( LSA.all );

end tiny;