[llvm-commits] [dragonegg] r153017 - in /dragonegg/trunk/test: compilator/local/2009-02-09-FloorDivExpr.f90 compilator/local/cpow.f90 compilator/local/fortran/ compilator/local/fortran/2009-02-09-FloorDivExpr.f90 compilator/local/fortran/cpow.f90 validator/fortran/ validator/fortran/2008-11-03-OptionOverride.f90

[Duncan Sands]

Author: baldrick
Date: Sun Mar 18 12:54:28 2012
New Revision: 153017

URL: http://llvm.org/viewvc/llvm-project?rev=153017&view=rev
Log:
Port tests from the old FrontendFortran testsuite.

Added:
    dragonegg/trunk/test/compilator/local/fortran/
    dragonegg/trunk/test/compilator/local/fortran/2009-02-09-FloorDivExpr.f90
    dragonegg/trunk/test/compilator/local/fortran/cpow.f90
    dragonegg/trunk/test/validator/fortran/
    dragonegg/trunk/test/validator/fortran/2008-11-03-OptionOverride.f90
Removed:
    dragonegg/trunk/test/compilator/local/2009-02-09-FloorDivExpr.f90
    dragonegg/trunk/test/compilator/local/cpow.f90

Removed: dragonegg/trunk/test/compilator/local/2009-02-09-FloorDivExpr.f90
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/2009-02-09-FloorDivExpr.f90?rev=153016&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/2009-02-09-FloorDivExpr.f90 (original)
+++ dragonegg/trunk/test/compilator/local/2009-02-09-FloorDivExpr.f90 (removed)
@@ -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

Removed: dragonegg/trunk/test/compilator/local/cpow.f90
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/cpow.f90?rev=153016&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/cpow.f90 (original)
+++ dragonegg/trunk/test/compilator/local/cpow.f90 (removed)
@@ -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

Added: dragonegg/trunk/test/compilator/local/fortran/2009-02-09-FloorDivExpr.f90
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/fortran/2009-02-09-FloorDivExpr.f90?rev=153017&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/fortran/2009-02-09-FloorDivExpr.f90 (added)
+++ dragonegg/trunk/test/compilator/local/fortran/2009-02-09-FloorDivExpr.f90 Sun Mar 18 12:54:28 2012
@@ -0,0 +1,31 @@
+! 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

Added: dragonegg/trunk/test/compilator/local/fortran/cpow.f90
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/fortran/cpow.f90?rev=153017&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/fortran/cpow.f90 (added)
+++ dragonegg/trunk/test/compilator/local/fortran/cpow.f90 Sun Mar 18 12:54:28 2012
@@ -0,0 +1,17 @@
+! 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

Added: dragonegg/trunk/test/validator/fortran/2008-11-03-OptionOverride.f90
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/validator/fortran/2008-11-03-OptionOverride.f90?rev=153017&view=auto
==============================================================================
--- dragonegg/trunk/test/validator/fortran/2008-11-03-OptionOverride.f90 (added)
+++ dragonegg/trunk/test/validator/fortran/2008-11-03-OptionOverride.f90 Sun Mar 18 12:54:28 2012
@@ -0,0 +1,4 @@
+! RUN: %dragonegg -S %s -march=k8
+! XTARGET: x86
+! Note: this file intentionally left blank, the problem itself is in
+! frontend initialization routines and march flag!