character_passing.f90

来自「用于进行gcc测试」· F90 代码 · 共 23 行

! 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