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

   1 ! PR middle-end/20030
   2 ! we were messing up the access in LSAME for
   3 ! the character agruments.
   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