Re: Ada.Locales pseudo-string types

["Jeffrey R. Carter" <ggsub@pragmada.co.cc>]

This works:

with Ada.Text_IO;
with Ada.Unchecked_Conversion;

procedure Weird_Output is
   type Weird is array (Positive range 1 .. 3) of Character range 'A' .. 'Z';
   
   subtype Weird_Image is String (1 .. 3);
   
   function Image is new Ada.Unchecked_Conversion (Source => Weird, Target => Weird_Image);
   
   C : constant Weird := "ABC";
begin -- Weird_Output
   Ada.Text_IO.Put_Line (Item => Image (C) );
end Weird_Output;