OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

nearest_1.f90: Add -O0 because -ffloat-store is insufficient to inhibit some test failures at -O3.

Browse Source 
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.

From-SVN: r117412
This commit is contained in:
Steven G. Kargl 2006-10-03 19:18:09 +00:00
parent 547e3b2a63
commit b7bf91917a
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -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> 2006-10-03 Mark Mitchell <mark@codesourcery.com>
PR c++/29138 PR c++/29138

7
gcc/testsuite/gfortran.dg/nearest_1.f90
View File

@ -1,15 +1,18 @@
! { dg-do run } ! { dg-do run }
! { dg-options "-ffloat-store" } ! { dg-options "-O0 -ffloat-store" }
! PR fortran/27021 ! PR fortran/27021
! Original code submitted by Dominique d'Humieres ! Original code submitted by Dominique d'Humieres
! Converted to Dejagnu for the testsuite by Steven G. Kargl ! Converted to Dejagnu for the testsuite by Steven G. Kargl
program chop program chop
integer ix, iy
real o, t, td, tu, x, y real o, t, td, tu, x, y
o = 1. o = 1.
t = tiny(o) t = tiny(o)
td = nearest(t,-1.0) td = nearest(t,-1.0)
x = td/2.0 x = td/2.0
y = nearest(tiny(o),-1.0)/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 end program chop