RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / wide_test.adb
blobf5d990b084d69be252c7f67bfd9331342774c5aa
1 -- { dg-do run }
2 -- { dg-options "-gnatW8" }
4 procedure wide_test is
5 X : constant Wide_Character := 'Я';
7 begin
8 declare
9 S3 : constant Wide_String := (''', X, ''');
10 X3 : Wide_Character;
11 begin
12 X3 := Wide_Character'Wide_Value (S3);
14 if X /= X3 then
15 raise Program_Error;
16 end if;
17 end;
18 end;