From 44a9c7956670caa9c32e84f6633989dde1000593 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fran=C3=A7ois-Xavier=20Coudert?= Date: Wed, 3 Oct 2007 14:57:39 +0000 Subject: [PATCH] default_format_1.f90: XFAIL on ppc-darwin. * gfortran.dg/default_format_1.f90: XFAIL on ppc-darwin. * gfortran.dg/default_format_2.f90: XFAIL on ppc-darwin. From-SVN: r128983 --- gcc/testsuite/ChangeLog | 7 ++++++- gcc/testsuite/gfortran.dg/default_format_1.f90 | 4 +++- gcc/testsuite/gfortran.dg/default_format_2.f90 | 4 +++- 3 files changed, 12 insertions(+), 3 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index be26f5c..498259d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,9 @@ -2007-09-28 Tobias Schlüter +2007-10-03 Francois-Xavier Coudert + + * gfortran.dg/default_format_1.f90: XFAIL on ppc-darwin. + * gfortran.dg/default_format_2.f90: XFAIL on ppc-darwin. + +2007-10-03 Tobias Schlüter PR fortran/33198 * gfortran.dg/common_errors_1.f90: New. diff --git a/gcc/testsuite/gfortran.dg/default_format_1.f90 b/gcc/testsuite/gfortran.dg/default_format_1.f90 index 6183a34..f9ae475 100644 --- a/gcc/testsuite/gfortran.dg/default_format_1.f90 +++ b/gcc/testsuite/gfortran.dg/default_format_1.f90 @@ -1,4 +1,6 @@ -! { dg-do run } +! { dg-do run { xfail powerpc*-apple-darwin* } } +! Test XFAILed on powerpc-darwin because the system's printf() lacks +! proper support for denormals. ! ! This tests that the default formats for formatted I/O of reals are ! wide enough and have enough precision, by checking that values can diff --git a/gcc/testsuite/gfortran.dg/default_format_2.f90 b/gcc/testsuite/gfortran.dg/default_format_2.f90 index af6d4a6..8574222 100644 --- a/gcc/testsuite/gfortran.dg/default_format_2.f90 +++ b/gcc/testsuite/gfortran.dg/default_format_2.f90 @@ -1,5 +1,7 @@ -! { dg-do run } ! { dg-require-effective-target fortran_large_real } +! { dg-do run { xfail powerpc*-apple-darwin* } } +! Test XFAILed on powerpc-darwin because the system's printf() lacks +! proper support for long doubles. ! ! This tests that the default formats for formatted I/O of reals are ! wide enough and have enough precision, by checking that values can -- 2.7.4