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

intrinsic_nearest.f90: Disable tests of nearest around zero.

Browse Source 
* gfortran.fortran-torture/execute/intrinsic_nearest.f90: Disable
        tests of nearest around zero.

From-SVN: r85361
This commit is contained in:
Richard Henderson 2004-07-30 15:31:20 -07:00 committed by Richard Henderson
parent d60bebdd50
commit 782700d4f2
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-07-30 Richard Henderson <rth@redhat.com>
* gfortran.fortran-torture/execute/intrinsic_nearest.f90: Disable
tests of nearest around zero.
2004-07-30 Andrew Pinski <apinski@apple.com>
* gcc.c-torture/compile/20040730-1.c: New test.

21
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_nearest.f90
View File

@ -1,7 +1,7 @@
!Program to test NEAREST intrinsic function.
program test_nearest
real s, r, x, y, inf, max, min
real s, r, x, y, inf, max
integer i, infi, maxi
equivalence (s,i)
equivalence (inf,infi)
@ -25,19 +25,26 @@ program test_nearest
y = nearest(s, -r)
if (.not. (x .gt. s .and. y .lt. s )) call abort()
! ??? This is pretty sketchy, but passes on most targets.
infi = z'7f800000'
maxi = z'7f7fffff'
min = tiny(1.0)
call test_up(max, inf)
call test_up(-inf, -max)
call test_up(0, min)
call test_up(-min, 0)
call test_down(inf, max)
call test_down(-max, -inf)
call test_down(0, -min)
call test_down(min, 0)
! ??? Here we require the F2003 IEEE_ARITHMETIC module to
! determine if denormals are supported. If they are, then
! nearest(0,1) is the minimum denormal. If they are not,
! then it's the minimum normalized number, TINY. This fails
! much more often than the infinity test above, so it's
! disabled for now.
! call test_up(0, min)
! call test_up(-min, 0)
! call test_down(0, -min)
! call test_down(min, 0)
end
subroutine test_up(s, e)