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