From 303eed065290578df6138ce078e1820d32e8f70c Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Tue, 9 Aug 2005 20:53:52 +0000 Subject: [PATCH] character_passing.f90: Fix types for LSAME. 2005-08-09 Thomas Koenig * gfortran/fortran.torture/execute/character_passing.f90: Fix types for LSAME. From-SVN: r102925 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.fortran-torture/execute/character_passing.f90 | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ccd238c8245..835596d5d2e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-08-09 Thomas Koenig + + * gfortran/fortran.torture/execute/character_passing.f90: + Fix types for LSAME. + 2005-08-09 Dorit Nuzman * 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 ade7f9d0c29..959e602b1a8 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