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 STOP 1; 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 23