This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[testsuite,committed] One more gfortran mingw fixes
- From: FX <fxcoudert at gmail dot com>
- To: Fortran List <fortran at gcc dot gnu dot org>, GCC Patches <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 11 May 2008 11:07:15 +0100
- Subject: [testsuite,committed] One more gfortran mingw fixes
Once again, committed after checking on x86_64-linux and manual
testing on i686-pc-mingw32.
FX
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.
Index: gfortran.dg/default_format_1.f90
===================================================================
--- gfortran.dg/default_format_1.f90 (revision 135088)
+++ gfortran.dg/default_format_1.f90 (working copy)
@@ -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
Index: gfortran.dg/default_format_denormal_1.f90
===================================================================
--- gfortran.dg/default_format_denormal_1.f90 (revision 135088)
+++ gfortran.dg/default_format_denormal_1.f90 (working copy)
@@ -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" } }
--
François-Xavier Coudert
http://www.homepages.ucl.ac.uk/~uccafco/