1-- { dg-do run }
2-- { dg-options "-gnatW8" }
3
4procedure wide_test is
5   X  : constant Wide_Character := 'Я';
6
7begin
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;
18end;
19