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
23