diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-08-22 10:39:48 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-08-22 10:39:48 +0200 |
| commit | 60f22d5d602118d29b2fb4e0077ad1ca573e37d6 (patch) | |
| tree | dc95082e92863ecbe0cb4491120fe0371da6accb | |
| parent | 8af7a07301302e42f4cd8d4815b78cab4b6c90f4 (diff) | |
| download | gcc-60f22d5d602118d29b2fb4e0077ad1ca573e37d6.zip gcc-60f22d5d602118d29b2fb4e0077ad1ca573e37d6.tar.gz gcc-60f22d5d602118d29b2fb4e0077ad1ca573e37d6.tar.bz2 | |
re PR fortran/36158 (Transformational function BESSEL_YN(n1,n2,x) and BESSEL_JN missing)
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bessel_7.f90 | 12 |
2 files changed, 11 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1144e7d..220d4eb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,4 +1,9 @@ 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> PR fortran/45367 diff --git a/gcc/testsuite/gfortran.dg/bessel_7.f90 b/gcc/testsuite/gfortran.dg/bessel_7.f90 index e40185e..2377c86 100644 --- a/gcc/testsuite/gfortran.dg/bessel_7.f90 +++ b/gcc/testsuite/gfortran.dg/bessel_7.f90 @@ -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 () |