gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

! PR middle-end/20030
! we were messing up the access in LSAME for
! the character arguments.
      program foo
      character*1 a1, a2, b
      logical LSAME, x
      a1='A'
      a2='A'
      b='B'
      x = LSAME(a1,a2)
      if ( .not. x ) then
        call abort  ();
      endif
      end

      logical function LSAME( CA, CB )
      character CA, CB
      integer   INTA, INTB
      INTA = ICHAR( CA )
      INTB = ICHAR( CB )
      LSAME = INTA.EQ.INTB
      end