From: Andrew Pinski <pinskia@physics.uc.edu>
Date: Fri, 18 Feb 2005 14:36:54 +0000 (+0000)
Subject: re PR middle-end/20030 (Broken arguments access)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=77f04481870b61ae3ef5522592ed2191fae817ec;p=gcc.git

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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7d653eca38b..581e21a9028 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90
new file mode 100644
index 00000000000..ade7f9d0c29
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90
@@ -0,0 +1,21 @@
+! 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