diff options
Diffstat (limited to 'test/FrontendFortran/cpow.f90')
| -rw-r--r-- | test/FrontendFortran/cpow.f90 | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/test/FrontendFortran/cpow.f90 b/test/FrontendFortran/cpow.f90 deleted file mode 100644 index 25156fd..0000000 --- a/test/FrontendFortran/cpow.f90 +++ /dev/null @@ -1,18 +0,0 @@ -! RUN: %llvmgcc -S %s -! PR2443 - -! Program to test the power (**) operator -program testpow - implicit none - real(kind=4) r, s, two - real(kind=8) :: q - complex(kind=4) :: c, z - real, parameter :: del = 0.0001 - integer i, j - - two = 2.0 - - c = (2.0, 3.0) - c = c ** two - if (abs(c - (-5.0, 12.0)) .gt. del) call abort -end program |
