mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 04:00:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

character_passing.f90: Fix types for LSAME.

Browse Source 
2005-08-09  Thomas Koenig  <Thomas.Koenig@online.de>

	* gfortran/fortran.torture/execute/character_passing.f90:
	Fix types for LSAME.

From-SVN: r102925
This commit is contained in:
Thomas Koenig 2005-08-09 20:53:52 +00:00 committed by Thomas Koenig
parent 4e7feced54
commit 303eed0652
2 changed files with 7 additions and 1 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 @@
2005-08-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran/fortran.torture/execute/character_passing.f90:
Fix types for LSAME.
2005-08-09 Dorit Nuzman <dorit@il.ibm.com>
* gcc.dg/vect/vect-reduc-1char.c: Reverse last change - change

3
gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90
View File

@ -3,11 +3,12 @@
! the character agruments.
program foo
character*1 a1, a2, b
logical LSAME, x
a1='A'
a2='A'
b='B'
x = LSAME(a1,a2)
if ( x.ne.1 ) then
if ( .not. x ) then
call abort ();
endif
end