re PR fortran/38955 (testsuite/gfortran.dg/array_constructor_24.f fails due to float...

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 (file)
--- 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 (file)
--- 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)