mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-17 05:29:24 +00:00
Regression test for PR2443.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@52826 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
accdef219f
commit
3921266559
18
test/FrontendFortran/cpow.f90
Normal file
18
test/FrontendFortran/cpow.f90
Normal file
@ -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
|
6
test/FrontendFortran/dg.exp
Normal file
6
test/FrontendFortran/dg.exp
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
load_lib llvm.exp
|
||||||
|
|
||||||
|
if [ llvm_gcc_supports fortran ] then {
|
||||||
|
RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{f,f90}]]
|
||||||
|
}
|
||||||
|
|
@ -238,7 +238,7 @@ proc llvm_gcc_supports { lang } {
|
|||||||
c++ { set file cc1plus }
|
c++ { set file cc1plus }
|
||||||
objc { set file cc1 }
|
objc { set file cc1 }
|
||||||
objc++ { set file cc1 }
|
objc++ { set file cc1 }
|
||||||
fortran { set file fcc1 }
|
fortran { set file f951 }
|
||||||
default { return 0 }
|
default { return 0 }
|
||||||
}
|
}
|
||||||
foreach supported_lang [split "$llvmgcc_langs" ,] {
|
foreach supported_lang [split "$llvmgcc_langs" ,] {
|
||||||
|
Loading…
Reference in New Issue
Block a user