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:
parent
4e7feced54
commit
303eed0652
|
@ -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>
|
2005-08-09 Dorit Nuzman <dorit@il.ibm.com>
|
||||||
|
|
||||||
* gcc.dg/vect/vect-reduc-1char.c: Reverse last change - change
|
* gcc.dg/vect/vect-reduc-1char.c: Reverse last change - change
|
||||||
|
|
|
@ -3,11 +3,12 @@
|
||||||
! the character agruments.
|
! the character agruments.
|
||||||
program foo
|
program foo
|
||||||
character*1 a1, a2, b
|
character*1 a1, a2, b
|
||||||
|
logical LSAME, x
|
||||||
a1='A'
|
a1='A'
|
||||||
a2='A'
|
a2='A'
|
||||||
b='B'
|
b='B'
|
||||||
x = LSAME(a1,a2)
|
x = LSAME(a1,a2)
|
||||||
if ( x.ne.1 ) then
|
if ( .not. x ) then
|
||||||
call abort ();
|
call abort ();
|
||||||
endif
|
endif
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue