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

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

+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

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)