diff options
| -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 |