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
2008-07-06 Kai Tietz <kai.tietz@onevision.com>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
extended_char_comparison_1.f
blob
311567dceb0c2f4b5d1f57c4d4d8568a4d6a9cf8
1
! {
dg
-
do
run
}
2
!
PR
27715
-
the front
end
and the library used
to
have different ideas
3
!
about ordering
for
characters whose encoding is above
127
.
4
5
program
main
6
character*1 c1
,
c2
7
logical
a1
,
a2
8
c1
=
'ç'
;
9
c2
=
'c'
;
10
a1
=
c1
>
c2
;
11
call
setval
(
c1
,
c2
)
12
a2
=
c1
>
c2
13
if
(
a1
.
neqv
.
a2
)
call
abort
14
end
15
16
subroutine
setval
(
c1
,
c2
)
17
character*1 c1
,
c2
18
c1
=
'ç'
;
19
c2
=
'c'
;
20
end