This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[patch, committed] Fix gfortran.fortran-torture/execute/character_passing.f90
- From: Thomas Koenig <Thomas dot Koenig at online dot de>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Tue, 9 Aug 2005 23:00:03 +0200
- Subject: [patch, committed] Fix gfortran.fortran-torture/execute/character_passing.f90
Committed as obvious on mainline and 4.0 after checking that the
test still passes.
Thomas
2005-08-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran/fortran.torture/execute/character_passing.f90:
Fix types for LSAME.
Index: gfortran.fortran-torture/execute/character_passing.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90,v
retrieving revision 1.1
diff -c -p -r1.1 character_passing.f90
*** gfortran.fortran-torture/execute/character_passing.f90 18 Feb 2005 14:36:54 -0000 1.1
--- gfortran.fortran-torture/execute/character_passing.f90 9 Aug 2005 20:52:28 -0000
***************
*** 3,13 ****
! 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
--- 3,14 ----
! the character agruments.
program foo
character*1 a1, a2, b
+ logical LSAME, x
a1='A'
a2='A'
b='B'
x = LSAME(a1,a2)
! if ( .not. x ) then
call abort ();
endif
end