From: tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 9 Aug 2005 20:53:52 +0000 (+0000)
Subject: 2005-08-09  Thomas Koenig  <Thomas.Koenig@online.de>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=b379389074662cd1aad9fd501c60716201834a64

2005-08-09  Thomas Koenig  <Thomas.Koenig@online.de>

	* gfortran/fortran.torture/execute/character_passing.f90:
	Fix types for LSAME.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102925 138bc75d-0d04-0410-961f-82ee72b054a4
---

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