diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/cabs.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/cabs.f | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/cabs.f b/gcc/testsuite/g77.f-torture/execute/cabs.f deleted file mode 100644 index 61fd263620b..00000000000 --- 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 |