From e999ee52579e945ae500afa689c132c83c81e9c5 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sun, 11 May 2008 09:55:34 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/default_format_1.f90 | 2 -- 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 be65e052e0c..e832305f17f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2008-05-11 Francois-Xavier Coudert + + * 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 * 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 b8dd0726d9e..9d3e3ad7635 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 99cf187861a..46cd175e5fa 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" } } -- 2.30.2