re PR testsuite/38946 (gcc trunk 143562 - Testsuite - gfortran failing tests that worked previously)
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. From-SVN: r161416
This commit is contained in:
parent
e0a80069ba
commit
754172c709
|
@ -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>
|
2010-06-25 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
* selected_real_kind_2.f90: New.
|
* selected_real_kind_2.f90: New.
|
||||||
|
|
|
@ -20,7 +20,7 @@
|
||||||
DDA1 = ATAN2 ((/(REAL(J1,KV),J1=1,10)/),
|
DDA1 = ATAN2 ((/(REAL(J1,KV),J1=1,10)/),
|
||||||
$ REAL((/(J1,J1=nf10,nf1,mf1)/), KV)) !fails
|
$ REAL((/(J1,J1=nf10,nf1,mf1)/), KV)) !fails
|
||||||
DDA2 = ATAN2 (DDA, DDA(10:1:-1))
|
DDA2 = ATAN2 (DDA, DDA(10:1:-1))
|
||||||
if (any (DDA1 .ne. DDA2)) call abort ()
|
if (any (DDA1 - DDA2 .gt. epsilon(dval))) call abort ()
|
||||||
END
|
END
|
||||||
|
|
||||||
subroutine FA6077 (nf10,nf1,mf1, ida)
|
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))
|
QDA1 = MOD ( 1.1_k*( QDA(1) -5.0_k), P=( QDA -2.5_k))
|
||||||
DO J1 = 1,10
|
DO J1 = 1,10
|
||||||
QVAL = MOD(1.1_k*(QDA(1)-5.0_k),P=(QDA(J1)-2.5_k))
|
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
|
ENDDO
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue