From 60f22d5d602118d29b2fb4e0077ad1ca573e37d6 Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
Date: Sun, 22 Aug 2010 10:39:48 +0200
Subject: [PATCH] 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
---
gcc/testsuite/ChangeLog | 5 +++++
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 1144e7d49e39..220d4eb7eb24 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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>
diff --git a/gcc/testsuite/gfortran.dg/bessel_7.f90 b/gcc/testsuite/gfortran.dg/bessel_7.f90
index e40185e1d3c2..2377c860d165 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 ()
--
GitLab