OSDN Git Service

2005-08-09 Thomas Koenig <Thomas.Koenig@online.de>
[pf3gnuchains/gcc-fork.git] / 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