diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-11 09:55:34 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-11 09:55:34 +0000 |
| commit | e999ee52579e945ae500afa689c132c83c81e9c5 (patch) | |
| tree | 772d1aa161074a9c1a30df619b97b22a1c8db659 /gcc | |
| parent | 1402079fbe6f4ace2bfaac8a5edb9ae95a59796a (diff) | |
| download | gcc-e999ee52579e945ae500afa689c132c83c81e9c5.zip gcc-e999ee52579e945ae500afa689c132c83c81e9c5.tar.gz gcc-e999ee52579e945ae500afa689c132c83c81e9c5.tar.bz2 | |
default_format_1.f90: Move denormals tests to gfortran.dg/default_format_denormal_1.f90.
* 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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/default_format_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 | 5 |
3 files changed, 10 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index be65e05..e832305 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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> * gfortran.dg/nint_2.f90: XFAIL on mingw. diff --git a/gcc/testsuite/gfortran.dg/default_format_1.f90 b/gcc/testsuite/gfortran.dg/default_format_1.f90 index b8dd072..9d3e3ad 100644 --- a/gcc/testsuite/gfortran.dg/default_format_1.f90 +++ b/gcc/testsuite/gfortran.dg/default_format_1.f90 @@ -12,14 +12,12 @@ program main use test_default_format 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 (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 (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 (huge(0.0_8), -1) /= 0) call abort diff --git a/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 b/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 index 99cf187..46cd175 100644 --- a/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 +++ b/gcc/testsuite/gfortran.dg/default_format_denormal_1.f90 @@ -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 ! 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 (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 (0.0_8, 0) /= 0) call abort + end program main ! ! { dg-final { cleanup-modules "test_default_format" } } |