1! { dg-do compile }
2! { dg-options "-O2 -floop-nest-optimize" }
3
4  character(len=20,kind=4) :: s4
5  character(len=20,kind=1) :: s1
6
7  s1 = "foo\u0000"
8  s1 = "foo\u00ff"
9  s1 = "foo\u0100"
10  s1 = "foo\u0101"
11  s1 = "foo\U00000101"
12
13  s1 = 4_"foo bar"
14  s1 = 4_"foo\u00ff"
15  s1 = 4_"foo\u0101"
16  s1 = 4_"foo\u1101"
17  s1 = 4_"foo\UFFFFFFFF"
18
19  s4 = "foo\u0000"
20  s4 = "foo\u00ff"
21  s4 = "foo\u0100"
22  s4 = "foo\U00000100"
23
24  s4 = 4_"foo bar"
25  s4 = 4_"\xFF\x96"
26  s4 = 4_"\x00\x96"
27  s4 = 4_"foo\u00ff"
28  s4 = 4_"foo\u0101"
29  s4 = 4_"foo\u1101"
30  s4 = 4_"foo\Uab98EF56"
31  s4 = 4_"foo\UFFFFFFFF"
32
33end
34