From 8cd9b95149b51d14f99c7c0e948873da8443eb64 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Sat, 24 Jan 2009 08:00:13 +0000 Subject: [PATCH] re PR fortran/38955 (testsuite/gfortran.dg/array_constructor_24.f fails due to floating point comparison) 2009-01-24 David Billinghurst (billingd@gcc.gnu.org) PR fortran/38955 * gfortran.dg/array_constructor_24.f: Allow tolerance when comparing floats From-SVN: r143600 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/array_constructor_24.f | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1ae83759876..7e40d4e4958 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-01-24 David Billinghurst (billingd@gcc.gnu.org) + + PR fortran/38955 + * gfortran.dg/array_constructor_24.f: Allow tolerance when + comparing floats + 2009-01-24 Sebastian Pop PR tree-optimization/38953 diff --git a/gcc/testsuite/gfortran.dg/array_constructor_24.f b/gcc/testsuite/gfortran.dg/array_constructor_24.f index dad613b136e..ee7b55694a4 100644 --- a/gcc/testsuite/gfortran.dg/array_constructor_24.f +++ b/gcc/testsuite/gfortran.dg/array_constructor_24.f @@ -19,7 +19,7 @@ DDA1 = ATAN2 ((/(REAL(J1,KV),J1=1,10)/), $ REAL((/(J1,J1=nf10,nf1,mf1)/), KV)) !fails DDA2 = ATAN2 (DDA, DDA(10:1:-1)) - if (any (DDA1 .ne. DDA2)) call abort () + if (any (abs(DDA1-DDA2) .gt. 1.0e-6)) call abort () END subroutine FA6077 (nf10,nf1,mf1, ida)