From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Sun, 11 May 2008 09:55:34 +0000 (+0000)
Subject: default_format_1.f90: Move denormals tests to gfortran.dg/default_format_denormal_1... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e999ee52579e945ae500afa689c132c83c81e9c5;p=gcc.git

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
---

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  <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 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" } }