repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2017-10-23 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
pr82672.f90
blob
77a1c706218cdb14da37a0ac39d910788b689902
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
33
end