OSDN Git Service

2005-08-09 Thomas Koenig <Thomas.Koenig@online.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.fortran-torture / execute / character_passing.f90
index ade7f9d..959e602 100644 (file)
@@ -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