Imported gcc-4.4.3

[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / cabs.f

diff --git a/gcc/testsuite/g77.f-torture/execute/cabs.f b/gcc/testsuite/g77.f-torture/execute/cabs.f
deleted file mode 100644 (file)
index 61fd263..0000000
--- a/gcc/testsuite/g77.f-torture/execute/cabs.f
+++ /dev/null
@@ -1,14 +0,0 @@
-      program cabs_1
-      complex      z0
-      real         r0
-      complex*16   z1
-      real*8       r1
-
-      z0 = cmplx(3.,4.)
-      r0 = cabs(z0)
-      if (r0 .ne. 5.) call abort
-
-      z1 = dcmplx(3.d0,4.d0)
-      r1 = zabs(z1)
-      if (r1 .ne. 5.d0) call abort
-      end