re PR middle-end/20030 (Broken arguments access)

2004-02-18  Andrew Pinski  <pinskia@physics.uc.edu>

        PR middle-end/20030
        * gfortran.fortran-torture/execute/character_passing.f90: New test.

From-SVN: r95227

gcc/testsuite/ChangeLog

+2004-02-18  Andrew Pinski  <pinskia@physics.uc.edu>
+
+	PR middle-end/20030
+	* gfortran.fortran-torture/execute/character_passing.f90: New test.
+
 2005-02-18  Alexandre Oliva  <aoliva@redhat.com>
 
 	PR c++/20008

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

+! PR middle-end/20030
+! we were messing up the access in LSAME for
+! the character agruments.
+      program foo
+      character*1 a1, a2, b
+      a1='A'
+      a2='A'
+      b='B'
+      x = LSAME(a1,a2)
+      if ( x.ne.1 ) 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