mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-19 21:31:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/36158 (Transformational function BESSEL_YN(n1,n2,x) and BESSEL_JN missing)

Browse Source 
2010-08-22  Tobias Burnus  <burnus@net-b.de>

        PR fortran/36158
        * gfortran.dg/bessel_7.f90: Disable accidently enabled debug
        output.

From-SVN: r163455
This commit is contained in:
Tobias Burnus 2010-08-22 10:39:48 +02:00 committed by Tobias Burnus
parent 8af7a07301
commit 60f22d5d60
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-08-22 Tobias Burnus <burnus@net-b.de>
PR fortran/36158
* gfortran.dg/bessel_7.f90: Disable accidently enabled debug output.
2010-08-22 Tobias Burnus <burnus@net-b.de>
Dominique d'Humieres <dominiq@lps.ens.fr>

12
gcc/testsuite/gfortran.dg/bessel_7.f90
View File

@ -32,13 +32,13 @@ real X, myeps, myeps2
rec = BESSEL_YN(0, Nmax, X)
lib = [ (BESSEL_YN(i, X), i=0,Nmax) ]
print *, 'YN for X = ', X, ' -- Epsilon = ',epsilon(x)
!print *, 'YN for X = ', X, ' -- Epsilon = ',epsilon(x)
do i = 0, Nmax
print '(i2,2e17.9,e12.2,f14.10,2l3)', i, rec(i), lib(i), &
rec(i)-lib(i), ((rec(i)-lib(i))/rec(i))/epsilon(x), &
i > nit .or. rec(i) == lib(i) &
.or. abs((rec(i)-lib(i))/rec(i)) < myeps2, &
rec(i) == lib(i) .or. abs((rec(i)-lib(i))/rec(i)) < myeps
! print '(i2,2e17.9,e12.2,f14.10,2l3)', i, rec(i), lib(i), &
! rec(i)-lib(i), ((rec(i)-lib(i))/rec(i))/epsilon(x), &
! i > nit .or. rec(i) == lib(i) &
! .or. abs((rec(i)-lib(i))/rec(i)) < myeps2, &
! rec(i) == lib(i) .or. abs((rec(i)-lib(i))/rec(i)) < myeps
if (.not. (i > nit .or. rec(i) == lib(i) &
.or. abs((rec(i)-lib(i))/rec(i)) < myeps2)) &
call abort ()