diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-08-09 20:53:52 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-08-09 20:53:52 +0000 |
| commit | 303eed065290578df6138ce078e1820d32e8f70c (patch) | |
| tree | 5f11b08e51ab70e33cecd8f8eda0ad1af6e49565 /gcc | |
| parent | 4e7feced5435dc9953e631ff3e4fd9bbc829cec5 (diff) | |
| download | gcc-303eed065290578df6138ce078e1820d32e8f70c.zip gcc-303eed065290578df6138ce078e1820d32e8f70c.tar.gz gcc-303eed065290578df6138ce078e1820d32e8f70c.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ccd238c..835596d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 index ade7f9d..959e602 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/character_passing.f90 @@ -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 |