diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-03 19:18:09 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-03 19:18:09 +0000 |
| commit | dca06990e6e0072e208e73b5f1e89567e768433b (patch) | |
| tree | 7ee08ea106a21a066ef81d6baf8c225768de409b | |
| parent | b8b2a426d44c41eb3c9428c7a49be359204c9d11 (diff) | |
| download | ppe42-gcc-dca06990e6e0072e208e73b5f1e89567e768433b.tar.gz ppe42-gcc-dca06990e6e0072e208e73b5f1e89567e768433b.zip | |
2006-10-03 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/nearest_1.f90: Add -O0 because -ffloat-store is
insufficient to inhibit some test failures at -O3. Do testing
on integers.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117412 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/nearest_1.f90 | 7 |
2 files changed, 11 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1e456965d9c..8615b816767 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-10-03 Steven G. Kargl <kargl@gcc.gnu.org> + + * gfortran.dg/nearest_1.f90: Add -O0 because -ffloat-store is + insufficient to inhibit some test failures at -O3. Do testing + on integers. + 2006-10-03 Mark Mitchell <mark@codesourcery.com> PR c++/29138 diff --git a/gcc/testsuite/gfortran.dg/nearest_1.f90 b/gcc/testsuite/gfortran.dg/nearest_1.f90 index 7c48d27fc4a..c80f3a6bc2d 100644 --- a/gcc/testsuite/gfortran.dg/nearest_1.f90 +++ b/gcc/testsuite/gfortran.dg/nearest_1.f90 @@ -1,15 +1,18 @@ ! { dg-do run } -! { dg-options "-ffloat-store" } +! { dg-options "-O0 -ffloat-store" } ! PR fortran/27021 ! Original code submitted by Dominique d'Humieres ! Converted to Dejagnu for the testsuite by Steven G. Kargl program chop + integer ix, iy real o, t, td, tu, x, y o = 1. t = tiny(o) td = nearest(t,-1.0) x = td/2.0 y = nearest(tiny(o),-1.0)/2.0 - if (abs(x - y) /= 0.) call abort + ix = transfer(x,ix) + iy = transfer(y,iy) + if (ix /= iy) call abort end program chop |
