On Thu, Jan 03, 2008 at 02:42:05PM +0100, Thorsten Leemhuis wrote:
> FYI, below the list with owner information in front of it and sorted by
> owners:
>
> pertusus fails-even-with-41/archmage-0.1.9-1.fc8.log
> pertusus fails-even-with-41/dap-hdf4_handler-3.7.5-3.fc8.log
> pertusus fails-even-with-41/python-chm-0.8.4-1.fc7.log
> pertusus
> fails-even-with-41/tetex-tex4ht-1.0.2007_11_19_2329-1.fc9.log
> pertusus fails-even-with-41/wdm-1.28-8.fc8.log
> pertusus header-dep/acpitool-0.4.7-2.fc9.log
> pertusus header-dep/boolstuff-0.1.11-3.fc9.log
> pertusus header-dep/libchmxx-0.1-5.fc6.log
> pertusus multipleparm/xchm-1.13-1.fc8.log
Should be fixed in rawhide.
> pertusus fails-even-with-41/gnash-0.8.1-6.fc9.log
> pertusus fails-even-with-41/kchmviewer-3.0-2.fc7.log
Waiting a bit for kde4 support from upstream, but should certainly
be easily fixed by using kde5libs-devel instead of kdelibs-devel.
> pertusus header-dep/bes-3.5.1-4.fc9.log
> pertusus header-dep/dap-freeform_handler-3.7.5-2.fc8.log
> pertusus header-dep/libdap-3.7.8-3.fc9.log
> pertusus header-dep/libnc-dap-3.7.0-8.fc9.log
Reported upstream.
> pertusus unsorted/perl-Cache-2.04-2.fc8.2.log
test failure not reproducible
> pertusus unsorted/cernlib-2006-20.fc9.log
This looks like a gfortran bug.
Error messages:
DR=DLGAMA(Z0)
1
Error: Result of LGAMMA overflows its kind at (1) /.../c310m.F:147.16:
DR=DLGAMA(-Z1)
1
Error: Result of LGAMMA overflows its kind at (1)
Code looks like:
IMPLICIT DOUBLE PRECISION (A-H,O-Q,S-Z)
IMPLICIT REAL (R)
REAL ALGAMA
DOUBLE PRECISION
+ Z0, Z1, HF, X
DR=DLGAMA(Z0)
DR=DLGAMA(-Z1)
Strange thing is that there is a previous
DR=DLGAMA(X)
which doesn't seems to be problematic.
I attach the whole problematic file. If gcc goes to rawhide I could try
to simplify the problematic file.
--
Pat
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F"
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/build/mathlib/gen/tests//"
# 1 "<interne>"
# 1 "<ligne de commande>"
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F"
*
* $Id: c310m.F,v 1.1.1.1 1996/04/01 15:01:14 mclareni Exp $
*
* $Log: c310m.F,v $
* Revision 1.1.1.1 1996/04/01 15:01:14 mclareni
* Mathlib gen
*
*
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/gen/pilot.h" 1
# 40 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/gen/pilot.h"
# 57 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/gen/pilot.h"
# 10 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F" 2
SUBROUTINE C310M
C This program tests the operation of MATHLIB subprograms
C ALGAMA, DLGAMA and QLGAMA(C310)
LOGICAL LTEST, LTEST1,LTEST2
COMMON /C310LT1/LTEST1
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/iorc.inc" 1
*
* $Id: iorc.inc,v 1.1.1.1 1996/04/01 15:01:31 mclareni Exp $
*
* $Log: iorc.inc,v $
* Revision 1.1.1.1 1996/04/01 15:01:31 mclareni
* Mathlib gen
*
*
*
* iorc.inc
*
COMMON/IOLUNS/LIN,LOUT
COMMON/GTSTAT/NTEST,NFAIL,IRC
# 20 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F" 2
CALL HEADER('C310',0)
LTEST=.TRUE.
LTEST1=.TRUE.
LTEST2=.TRUE.
CALL C310D
LTEST=LTEST .AND. LTEST1
IRC=ITEST('C310',LTEST)
CALL PAGEND('C310')
RETURN
END
SUBROUTINE C310D
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/imp64r.inc" 1
*
* $Id: imp64r.inc,v 1.1.1.1 1996/04/01 15:01:31 mclareni Exp $
*
* $Log: imp64r.inc,v $
* Revision 1.1.1.1 1996/04/01 15:01:31 mclareni
* Mathlib gen
*
*
*
* imp64r.inc
*
IMPLICIT DOUBLE PRECISION (A-H,O-Q,S-Z)
IMPLICIT REAL (R)
# 38 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F" 2
REAL ALGAMA
C Set maximum error allowed for test to be considered successful
DIMENSION TOL(2),TOLIBM(2)
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/gen/def64.inc" 1
*
* $Id: def64.inc,v 1.1.1.1 1996/04/01 15:02:59 mclareni Exp $
*
* $Log: def64.inc,v $
* Revision 1.1.1.1 1996/04/01 15:02:59 mclareni
* Mathlib gen
*
*
*
* def64.inc
*
DOUBLE PRECISION
# 43 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F" 2
+ Z0, Z1, HF, X
PARAMETER (Z0 = 0, Z1 = 1, HF = Z1/2)
LOGICAL LTEST1
C
CHARACTER*6 TFUNC(2)
C
# 1 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/iorc.inc" 1
*
* $Id: iorc.inc,v 1.1.1.1 1996/04/01 15:01:31 mclareni Exp $
*
* $Log: iorc.inc,v $
* Revision 1.1.1.1 1996/04/01 15:01:31 mclareni
* Mathlib gen
*
*
*
* iorc.inc
*
COMMON/IOLUNS/LIN,LOUT
COMMON/GTSTAT/NTEST,NFAIL,IRC
# 50 "/home/dumas/src/fc-write/cernlib/devel/cernlib-2006/2006/src/mathlib/gen/tests/c310m.F" 2
DIMENSION Y(7),T(7)
REAL RT(7)
DATA LTEST1/.TRUE./
DATA TOL/1D-8, 5D-11/
DATA TOLIBM/1D-6, 1D-11/
DATA TFUNC/'ALGAMA','DLGAMA'/
DATA (Y(I), I=1,7)
+ / 0.10D-02,0.35D0, 1.00D0, 2.50D0, 8.00D0, 100.00D0,
+ 0.99990000000000D0/
DATA (T(I), I=1,7)
+ /6.90717888538385361D0,0.934581227146233540D0,
+ 0.000000000000000000D0,0.284682870472918514D0,
+ 8.52516136106527989D0,359.134205369575341D0,
+ 0.577297915612021598D-4 /
ERRMAX=0D0
RERRMAX=0E0
NF=2
DO 1000 JF=1,NF
ERRMAX= 0.0D0
IF(JF.EQ.1)WRITE(LOUT,'(/10X,''TEST FOR ALGAMA'')')
IF(JF.EQ.2)WRITE(LOUT,'(/10X,''TEST FOR DLGAMA'')')
WRITE(LOUT,'(/8X,''X'',14X,'' '',A,''(X)'',7X,''Rel Error'')')
+ TFUNC(JF)
DO 1 I = 1,7
X=Y(I)
IF(JF.EQ.1)THEN
RX=X
RT(I)=T(I)
RDR=ALGAMA(RX)
IF(ABS(RDR) .GT. 1E-4)RER=ABS((RDR-RT(I))/RDR)
IF(ABS(RDR) .LE. 1E-4)RER=ABS((RDR-RT(I)))
X=RX
ERRMAX =MAX(RERRMAX,RER)
WRITE(LOUT,'(1X,F10.3,1P,E27.9,E10.1)')
+ RX ,RDR,RER
ENDIF
IF(JF.EQ.2)THEN
DR=DLGAMA(X)
IF(ABS(DR) .GT. 1D-14) ER=ABS((DR-T(I))/DR)
ERRMAX =MAX(ERRMAX,ER)
WRITE(LOUT,'(1X,F10.3,1P,E27.18,E10.1)') X,DR,ER
ENDIF
1 CONTINUE
ETOL=TOLIBM(JF)
ETOL=TOL(JF)
WRITE(LOUT,'(/''LARGEST RELATIVE ERROR WAS'',1P,E10.1)')
+ERRMAX
LTEST1=LTEST1.AND.(ERRMAX.LE.ETOL)
ERRMAX= 0D0
WRITE(LOUT,'(/''TESTING ERROR MESSAGES:'')')
IF(JF.EQ.1)THEN
RZ0=Z0
RZ1=Z1
DR=ALGAMA(RZ0)
DR=ALGAMA(-RZ1)
ENDIF
IF(JF.EQ.2)THEN
DR=DLGAMA(Z0)
DR=DLGAMA(-Z1)
ENDIF
1000 CONTINUE
RETURN
END
--
fedora-devel-list mailing list
fedora-devel-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/fedora-devel-list
