diff options
Diffstat (limited to 'test/FrontendFortran')
-rw-r--r-- | test/FrontendFortran/cpow.f90 | 18 | ||||
-rw-r--r-- | test/FrontendFortran/dg.exp | 6 |
2 files changed, 24 insertions, 0 deletions
diff --git a/test/FrontendFortran/cpow.f90 b/test/FrontendFortran/cpow.f90 new file mode 100644 index 0000000000..19ae3784c2 --- /dev/null +++ b/test/FrontendFortran/cpow.f90 @@ -0,0 +1,18 @@ +! RUN: %llvmgcc -c %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 diff --git a/test/FrontendFortran/dg.exp b/test/FrontendFortran/dg.exp new file mode 100644 index 0000000000..45bffc6fdc --- /dev/null +++ b/test/FrontendFortran/dg.exp @@ -0,0 +1,6 @@ +load_lib llvm.exp + +if [ llvm_gcc_supports fortran ] then { + RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{f,f90}]] +} + |