gcc/testsuite/gnat.dg/wide_test.adb

   1 -- { dg-do run }
   2 -- { dg-options "-gnatW8" }
   3
   4 procedure wide_test is
   5    X  : constant Wide_Character := 'Я';
   6
   7 begin
   8    declare
   9       S3 : constant Wide_String := (''', X, ''');
  10       X3 :           Wide_Character;
  11    begin
  12       X3 := Wide_Character'Wide_Value (S3);
  13
  14       if X /= X3 then
  15          raise Program_Error;
  16       end if;
  17    end;
  18 end;