mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-07-17 20:29:31 +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 }
|
||||
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" ,] {
|
||||
|
Loading…
Reference in New Issue
Block a user