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

default_format_1.f90: Move denormals tests to gfortran.dg/default_format_denormal_1.f90.

Browse Source 
* gfortran.dg/default_format_1.f90: Move denormals tests to
	gfortran.dg/default_format_denormal_1.f90.
	* gfortran.dg/default_format_denormal_1.f90: Added denormal tests.

From-SVN: r135170
This commit is contained in:
Francois-Xavier Coudert 2008-05-11 09:55:34 +00:00 committed by François-Xavier Coudert
parent 1402079fbe
commit e999ee5257
3 changed files with 10 additions and 3 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 @@
2008-05-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* gfortran.dg/default_format_1.f90: Move denormals tests to
gfortran.dg/default_format_denormal_1.f90.
* gfortran.dg/default_format_denormal_1.f90: Added denormal tests.
2008-05-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 2008-05-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* gfortran.dg/nint_2.f90: XFAIL on mingw. * gfortran.dg/nint_2.f90: XFAIL on mingw.

2
gcc/testsuite/gfortran.dg/default_format_1.f90
View File

@ -12,14 +12,12 @@ program main
use test_default_format use test_default_format
if (test (1.0_4, 0) /= 0) call abort if (test (1.0_4, 0) /= 0) call abort
if (test (0.0_4, 0) /= 0) call abort
if (test (tiny(0.0_4), 1) /= 0) call abort if (test (tiny(0.0_4), 1) /= 0) call abort
if (test (-tiny(0.0_4), -1) /= 0) call abort if (test (-tiny(0.0_4), -1) /= 0) call abort
if (test (huge(0.0_4), -1) /= 0) call abort if (test (huge(0.0_4), -1) /= 0) call abort
if (test (-huge(0.0_4), 1) /= 0) call abort if (test (-huge(0.0_4), 1) /= 0) call abort
if (test (1.0_8, 0) /= 0) call abort if (test (1.0_8, 0) /= 0) call abort
if (test (0.0_8, 0) /= 0) call abort
if (test (tiny(0.0_8), 1) /= 0) call abort if (test (tiny(0.0_8), 1) /= 0) call abort
if (test (-tiny(0.0_8), -1) /= 0) call abort if (test (-tiny(0.0_8), -1) /= 0) call abort
if (test (huge(0.0_8), -1) /= 0) call abort if (test (huge(0.0_8), -1) /= 0) call abort

5
gcc/testsuite/gfortran.dg/default_format_denormal_1.f90
View File

@ -1,4 +1,4 @@
! { dg-do run { xfail *-apple-darwin* *-*-freebsd* } } ! { dg-do run { xfail *-apple-darwin* *-*-freebsd* *-*-mingw* } }
! Test XFAILed on these platforms because the system's printf() lacks ! Test XFAILed on these platforms because the system's printf() lacks
! proper support for denormals. ! proper support for denormals.
! !
@ -13,9 +13,12 @@ program main
if (test (tiny(0.0_4), -1) /= 0) call abort if (test (tiny(0.0_4), -1) /= 0) call abort
if (test (-tiny(0.0_4), 1) /= 0) call abort if (test (-tiny(0.0_4), 1) /= 0) call abort
if (test (0.0_4, 0) /= 0) call abort
if (test (tiny(0.0_8), -1) /= 0) call abort if (test (tiny(0.0_8), -1) /= 0) call abort
if (test (-tiny(0.0_8), 1) /= 0) call abort if (test (-tiny(0.0_8), 1) /= 0) call abort
if (test (0.0_8, 0) /= 0) call abort
end program main end program main
! !
! { dg-final { cleanup-modules "test_default_format" } } ! { dg-final { cleanup-modules "test_default_format" } }