From: Ira Rosen <irar@il.ibm.com>
Date: Mon, 12 May 2008 11:03:11 +0000 (+0000)
Subject: pr36119.f: Rename to ...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ba7267c2653651f979083c6f2d4c8115735e8a23;p=gcc.git

pr36119.f: Rename to ...

        * gfortran.dg/vect/pr36119.f: Rename to ...
        * gfortran.dg/vect/O3-pr36119.f90: ... this. Compile for all targets
        with -O3.

From-SVN: r135209
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ae7e016e3f1..1ddbc283329 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-05  Ira Rosen  <irar@il.ibm.com>
+
+	* gfortran.dg/vect/pr36119.f: Rename to ...
+	* gfortran.dg/vect/O3-pr36119.f90: ... this. Compile for all targets
+	with -O3.
+
 2008-05-11  Adam Nemet  <anemet@caviumnetworks.com>
 
 	* gcc.target/mips/mips.exp: Move passing -DMIPS16=... from here ...
diff --git a/gcc/testsuite/gfortran.dg/vect/O3-pr36119.f90 b/gcc/testsuite/gfortran.dg/vect/O3-pr36119.f90
new file mode 100644
index 00000000000..432e8485a5a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/vect/O3-pr36119.f90
@@ -0,0 +1,28 @@
+! { dg-do compile } 
+
+SUBROUTINE check_dnucint_ana (dcore)
+  IMPLICIT NONE
+  INTEGER, PARAMETER :: dp=8
+  REAL(dp), DIMENSION(10, 2), INTENT(IN),&
+       OPTIONAL                            :: dcore
+  INTEGER                                  :: i, j
+  REAL(dp)                                 :: delta, nssss, od, rn, ssssm, &
+       ssssp
+  REAL(dp), DIMENSION(10, 2)               :: corem, corep, ncore
+  LOGICAL                                  :: check_value
+
+  delta = 1.0E-8_dp
+  od = 0.5_dp/delta
+  ncore = od * (corep - corem)
+  nssss = od * (ssssp - ssssm)
+  IF (PRESENT(dcore)) THEN
+     DO i = 1, 2
+        DO j = 1, 10
+           IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN
+           END IF
+        END DO
+     END DO
+  END IF
+END SUBROUTINE check_dnucint_ana
+
+! { dg-final { cleanup-tree-dump "vect" } } 
diff --git a/gcc/testsuite/gfortran.dg/vect/pr36119.f b/gcc/testsuite/gfortran.dg/vect/pr36119.f
deleted file mode 100644
index d4b11cb3679..00000000000
--- a/gcc/testsuite/gfortran.dg/vect/pr36119.f
+++ /dev/null
@@ -1,29 +0,0 @@
-! { dg-do compile { target { i?86-*-* x86_64-*-* } } } 
-! { dg-options "-O3 -mfpmath=sse -msse2 -ffree-form" } 
-
-SUBROUTINE check_dnucint_ana (dcore)
-  IMPLICIT NONE
-  INTEGER, PARAMETER :: dp=8
-  REAL(dp), DIMENSION(10, 2), INTENT(IN),&
-       OPTIONAL                            :: dcore
-  INTEGER                                  :: i, j
-  REAL(dp)                                 :: delta, nssss, od, rn, ssssm, &
-       ssssp
-  REAL(dp), DIMENSION(10, 2)               :: corem, corep, ncore
-  LOGICAL                                  :: check_value
-
-  delta = 1.0E-8_dp
-  od = 0.5_dp/delta
-  ncore = od * (corep - corem)
-  nssss = od * (ssssp - ssssm)
-  IF (PRESENT(dcore)) THEN
-     DO i = 1, 2
-        DO j = 1, 10
-           IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN
-           END IF
-        END DO
-     END DO
-  END IF
-END SUBROUTINE check_dnucint_ana
-
-! { dg-final { cleanup-tree-dump "vect" } } 
diff --git a/gcc/testsuite/gfortran.dg/vect/vect.exp b/gcc/testsuite/gfortran.dg/vect/vect.exp
index 518b6850b6a..c532967ae36 100644
--- a/gcc/testsuite/gfortran.dg/vect/vect.exp
+++ b/gcc/testsuite/gfortran.dg/vect/vect.exp
@@ -137,6 +137,12 @@ lappend DEFAULT_VECTCFLAGS "--param" "vect-max-version-for-alias-checks=0"
 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/no-vfa-*.\[fF\]{,90,95,03,08} ]]  \
         "" $DEFAULT_VECTCFLAGS
 
+# With -O3
+set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
+lappend DEFAULT_VECTCFLAGS "-O3"
+dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/O3-*.\[fF\]{,90,95,03,08} ]]  \
+        "" $DEFAULT_VECTCFLAGS
+
 # Clean up.
 set dg-do-what-default ${save-dg-do-what-default}