2010-06-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR testsuite/38946
	* gfortran.dg/array_constructor_23.f: Update test to allow for small
	error in comparing reals.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161416 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8365f76..88f6e03 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2010-06-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR testsuite/38946
+       * gfortran.dg/array_constructor_23.f: Update test to allow for small
+       error in comparing reals.
+

 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 
        * selected_real_kind_2.f90: New.
 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 
        * selected_real_kind_2.f90: New.

diff --git a/gcc/testsuite/gfortran.dg/array_constructor_23.f b/gcc/testsuite/gfortran.dg/array_constructor_23.f
index ac57efc..fa0a28a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/array_constructor_23.f
+++ b/gcc/testsuite/gfortran.dg/array_constructor_23.f
@@ -20,7 +20,7 @@
       DDA1 = ATAN2 ((/(REAL(J1,KV),J1=1,10)/),
      $                 REAL((/(J1,J1=nf10,nf1,mf1)/), KV))   !fails
       DDA2 = ATAN2 (DDA, DDA(10:1:-1))
       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 (DDA1 - DDA2 .gt. epsilon(dval))) call abort ()

       END
 
       subroutine FA6077 (nf10,nf1,mf1, ida)
       END
 
       subroutine FA6077 (nf10,nf1,mf1, ida)


@@ -42,7 +42,7 @@
       QDA1 = MOD ( 1.1_k*( QDA(1) -5.0_k), P=( QDA -2.5_k))
       DO J1 = 1,10
         QVAL = MOD(1.1_k*(QDA(1)-5.0_k),P=(QDA(J1)-2.5_k))
       QDA1 = MOD ( 1.1_k*( QDA(1) -5.0_k), P=( QDA -2.5_k))
       DO J1 = 1,10
         QVAL = MOD(1.1_k*(QDA(1)-5.0_k),P=(QDA(J1)-2.5_k))

-        if (qval .ne. qda1(j1)) call abort ()
+        if (qval - qda1(j1) .gt. epsilon(qval)) call abort ()

       ENDDO
       END
 
       ENDDO
       END