]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/execute/le.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / le.f
diff --git a/gcc/testsuite/g77.f-torture/execute/le.f b/gcc/testsuite/g77.f-torture/execute/le.f
deleted file mode 100644 (file)
index 74e4275..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-      program fool
-
-      real     foo
-      integer  n
-      logical  t
-
-      foo = 2.5
-      n = 5
-
-      t = (n > foo)
-      if (t .neqv. .true.) call abort
-      t = (n >= foo)
-      if (t .neqv. .true.) call abort
-      t = (n < foo)
-      if (t .neqv. .false.) call abort
-      t = (n <= 5)
-      if (t .neqv. .true.) call abort
-      t = (n >= 5 )
-      if (t .neqv. .true.) call abort
-      t = (n == 5)
-      if (t .neqv. .true.) call abort
-      t = (n /= 5)
-      if (t .neqv. .false.) call abort
-      t = (n /= foo)
-      if (t .neqv. .true.) call abort
-      t = (n == foo)
-      if (t .neqv. .false.) call abort
-
-      end