aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendFortran
diff options
context:
space:
mode:
Diffstat (limited to 'test/FrontendFortran')
-rw-r--r--test/FrontendFortran/2008-11-03-OptionOverride.f904
-rw-r--r--test/FrontendFortran/2009-02-09-FloorDivExpr.f9032
-rw-r--r--test/FrontendFortran/cpow.f9018
-rw-r--r--test/FrontendFortran/dg.exp6
4 files changed, 0 insertions, 60 deletions
diff --git a/test/FrontendFortran/2008-11-03-OptionOverride.f90 b/test/FrontendFortran/2008-11-03-OptionOverride.f90
deleted file mode 100644
index d65ba9b..0000000
--- a/test/FrontendFortran/2008-11-03-OptionOverride.f90
+++ /dev/null
@@ -1,4 +0,0 @@
-! RUN: %llvmgcc -S %s -march=k8
-! XTARGET: x86
-! Note: this file intentionally left blank, the problem itself is in
-! frontend initialization routines and march flag!
diff --git a/test/FrontendFortran/2009-02-09-FloorDivExpr.f90 b/test/FrontendFortran/2009-02-09-FloorDivExpr.f90
deleted file mode 100644
index ddd05c5..0000000
--- a/test/FrontendFortran/2009-02-09-FloorDivExpr.f90
+++ /dev/null
@@ -1,32 +0,0 @@
-! RUN: %llvmgcc -S %s
-! PR2437
-program main
- implicit none
- call build (77)
-contains
- subroutine build (order)
- integer :: order, i, j
-
-
- call test (1, order, 3, (/ (i, i = 1, order, 3) /))
- call test (order, 1, -3, (/ (i, i = order, 1, -3) /))
-
- do j = -10, 10
- call test (order + j, order, 5, (/ (i, i = order + j, order, 5) /))
- call test (order + j, order, -5, (/ (i, i = order + j, order, -5) /))
- end do
-
- end subroutine build
-
- subroutine test (from, to, step, values)
- integer, dimension (:) :: values
- integer :: from, to, step, last, i
-
- last = 0
- do i = from, to, step
- last = last + 1
- if (values (last) .ne. i) call abort
- end do
- if (size (values, dim = 1) .ne. last) call abort
- end subroutine test
-end program main
diff --git a/test/FrontendFortran/cpow.f90 b/test/FrontendFortran/cpow.f90
deleted file mode 100644
index 25156fd..0000000
--- a/test/FrontendFortran/cpow.f90
+++ /dev/null
@@ -1,18 +0,0 @@
-! RUN: %llvmgcc -S %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
deleted file mode 100644
index 45bffc6..0000000
--- a/test/FrontendFortran/dg.exp
+++ /dev/null
@@ -1,6 +0,0 @@
-load_lib llvm.exp
-
-if [ llvm_gcc_supports fortran ] then {
- RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{f,f90}]]
-}
-