diff options
| author | David Billinghurst <billingd@gcc.gnu.org> | 2009-01-24 08:00:13 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2009-01-24 08:00:13 +0000 |
| commit | 8cd9b95149b51d14f99c7c0e948873da8443eb64 (patch) | |
| tree | eb8abac8e0a7c8b23591bb7392edb081457e7a40 | |
| parent | b840fb02f5704b62494b84cfb4298b139da44a17 (diff) | |
| download | gcc-8cd9b95149b51d14f99c7c0e948873da8443eb64.zip gcc-8cd9b95149b51d14f99c7c0e948873da8443eb64.tar.gz gcc-8cd9b95149b51d14f99c7c0e948873da8443eb64.tar.bz2 | |
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
| -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) |