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
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
character_passing.f90
blob
af06a84e471315ec63a54b38dc30341932af176d
1
! PR middle-end/20030
2
! we were messing up the access in LSAME for
3
! the character arguments.
4
program
foo
5
character
*
1
a1
,
a2
,
b
6
logical
LSAME
,
x
7
a1
=
'A'
8
a2
=
'A'
9
b
=
'B'
10
x
=
LSAME
(
a1
,
a2
)
11
if
( .
not
.
x
)
then
12
call
abort
();
13
endif
14
end
15
16
logical function
LSAME
(
CA
,
CB
)
17
character
CA
,
CB
18
integer
INTA
,
INTB
19
INTA
=
ICHAR
(
CA
)
20
INTB
=
ICHAR
(
CB
)
21
LSAME
=
INTA
.
EQ
.
INTB
22
end