diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_constructor_24.f | 2 |
2 files changed, 7 insertions, 1 deletions
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 <sebastian.pop@amd.com> 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) |