Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/nearest_1.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-O0 -ffloat-store" } ! { dg-add-options ieee } ! { dg-skip-if "Denormals not supported" { spu-*-* } } ! 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 ix = transfer(x,ix) iy = transfer(y,iy) if (ix /= iy) call abort end program chop