From: David Billinghurst Date: Sat, 24 Jan 2009 08:00:13 +0000 (+0000) Subject: re PR fortran/38955 (testsuite/gfortran.dg/array_constructor_24.f fails due to float... X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8cd9b95149b51d14f99c7c0e948873da8443eb64;p=platform%2Fupstream%2Fgcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1ae8375..7e40d4e 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 dad613b..ee7b556 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)