3 with Ada
.Text_IO
; use Ada
.Text_IO
;
5 procedure Wide_Wide_Value1
is
9 Str
: constant Wide_Wide_String
:=
10 Wide_Wide_Character
'Val (16#
00000411#
) &
11 Wide_Wide_Character
'Val (16#
0000043e#
) &
12 Wide_Wide_Character
'Val (16#
00000434#
) &
13 Wide_Wide_Character
'Val (16#
00000430#
) &
14 Wide_Wide_Character
'Val (16#
00000443#
) &
15 Wide_Wide_Character
'Val (16#
00000431#
) &
16 Wide_Wide_Character
'Val (16#
00000430#
) &
17 Wide_Wide_Character
'Val (16#
00000435#
) &
18 Wide_Wide_Character
'Val (16#
00000432#
) &
19 Wide_Wide_Character
'Val (16#
00000416#
) &
20 Wide_Wide_Character
'Val (16#
00000443#
) &
21 Wide_Wide_Character
'Val (16#
0000043c#
) &
22 Wide_Wide_Character
'Val (16#
00000430#
) &
23 Wide_Wide_Character
'Val (16#
00000442#
) &
24 Wide_Wide_Character
'Val (16#
0000041c#
) &
25 Wide_Wide_Character
'Val (16#
00000430#
) &
26 Wide_Wide_Character
'Val (16#
00000440#
) &
27 Wide_Wide_Character
'Val (16#
00000430#
) &
28 Wide_Wide_Character
'Val (16#
00000442#
) &
29 Wide_Wide_Character
'Val (16#
0000043e#
) &
30 Wide_Wide_Character
'Val (16#
00000432#
) &
31 Wide_Wide_Character
'Val (16#
00000438#
) &
32 Wide_Wide_Character
'Val (16#
00000447#
);
34 Val
: constant Integer := Integer'Wide_Wide_Value (Str
);
36 Put_Line
("ERROR: 1: Constraint_Error not raised");
39 when Constraint_Error
=>
42 Put_Line
("ERROR: 1: unexpected exception");
47 Str
: Wide_Wide_String
(1 .. 128) :=
48 (others => Wide_Wide_Character
'Val (16#
0FFFFFFF#
));
50 Val
: constant Integer := Integer'Wide_Wide_Value (Str
);
52 Put_Line
("ERROR: 1: Constraint_Error not raised");
55 when Constraint_Error
=>
58 Put_Line
("ERROR: 1: unexpected exception");