OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

character_passing.f90: Fix types for LSAME. 

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