diff options
| -rw-r--r-- | test/FrontendFortran/cpow.f90 | 18 | ||||
| -rw-r--r-- | test/FrontendFortran/dg.exp | 6 | ||||
| -rw-r--r-- | test/lib/llvm.exp | 2 |
3 files changed, 25 insertions, 1 deletions
diff --git a/test/FrontendFortran/cpow.f90 b/test/FrontendFortran/cpow.f90 new file mode 100644 index 0000000..19ae378 --- /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 0000000..45bffc6 --- /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}]] +} + diff --git a/test/lib/llvm.exp b/test/lib/llvm.exp index 1afc00a..4ee300b 100644 --- a/test/lib/llvm.exp +++ b/test/lib/llvm.exp @@ -238,7 +238,7 @@ proc llvm_gcc_supports { lang } { c++ { set file cc1plus } objc { set file cc1 } objc++ { set file cc1 } - fortran { set file fcc1 } + fortran { set file f951 } default { return 0 } } foreach supported_lang [split "$llvmgcc_langs" ,] { |