#! /bin/sh /usr/share/dpatch/dpatch-run
## 121-fix-mathlib-test-case-c209m.dpatch by <kmccarty@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Fix off-by-one bug in test case c209m. Courtesy Harald Vogt.
@DPATCH@
diff -urNad cernlib-2005.dfsg~/src/mathlib/gen/tests/c209m.F cernlib-2005.dfsg/src/mathlib/gen/tests/c209m.F
--- cernlib-2005.dfsg~/src/mathlib/gen/tests/c209m.F 1996-04-01 10:01:13.000000000 -0500
+++ cernlib-2005.dfsg/src/mathlib/gen/tests/c209m.F 2006-09-06 19:05:30.359047318 -0400
@@ -16,7 +16,7 @@
#include "gen/defc64.inc"
+ TEST(NT,NT),A(0:NT),ROOT(NT),SUM
C R is the estimated radius of a circle centered at a root
- DIMENSION R(NT),RES(NT)
+ DIMENSION R(NT+1),RES(NT)
LOGICAL INR2(NT,NT)
PARAMETER (MAXFUN=50000)
PARAMETER (TSTERR=5D-8)