diff options
author | Duncan Sands <baldrick@free.fr> | 2008-06-27 14:22:20 +0000 |
---|---|---|
committer | Duncan Sands <baldrick@free.fr> | 2008-06-27 14:22:20 +0000 |
commit | 3921266559c71717e6d93ae6b6be7e5702826551 (patch) | |
tree | a03db03f07a125d5cde25099c84058c75bd1d0b4 | |
parent | accdef219faa965320ae317f04773cf63f40bab5 (diff) | |
download | llvm-3921266559c71717e6d93ae6b6be7e5702826551.tar.gz llvm-3921266559c71717e6d93ae6b6be7e5702826551.tar.bz2 llvm-3921266559c71717e6d93ae6b6be7e5702826551.tar.xz |
Regression test for PR2443.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@52826 91177308-0d34-0410-b5e6-96231b3b80d8
-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 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}]] +} + diff --git a/test/lib/llvm.exp b/test/lib/llvm.exp index 1afc00a21b..4ee300b2b3 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" ,] { |