procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Andrew Pinski 2005-02-18 14:36:54 +00:00 • committed by Andrew Pinski
parent 0d56ab3348
commit 77f0448187
2 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

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

21
gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 Normal file
View file

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