From 842e3343674f24c20135db0ce8b7420c871e22ce Mon Sep 17 00:00:00 2001 From: Pascal Date: Wed, 4 Oct 2017 15:46:45 +0200 Subject: [PATCH] fix acb_dirichlet_dft test -- the reference was wrong --- acb_dft/test/t-dft.c | 4 ++-- acb_dirichlet/dft.c | 1 - acb_dirichlet/test/t-dft.c | 3 +-- 3 files changed, 3 insertions(+), 5 deletions(-) diff --git a/acb_dft/test/t-dft.c b/acb_dft/test/t-dft.c index c7d77e9f..b3ad6a71 100644 --- a/acb_dft/test/t-dft.c +++ b/acb_dft/test/t-dft.c @@ -56,8 +56,8 @@ int main() slong k; slong prec = 100, digits = 30; - slong nq = 13; - ulong q[13] = { 2, 3, 4, 5, 6, 23, 10, 15, 30, 59, 308, 335, 961}; + slong nq = 14; + ulong q[14] = { 2, 3, 4, 5, 6, 23, 10, 15, 30, 59, 308, 335, 525, 961}; flint_rand_t state; slong f, nf = 4; diff --git a/acb_dirichlet/dft.c b/acb_dirichlet/dft.c index c6b6986c..7255f7e4 100644 --- a/acb_dirichlet/dft.c +++ b/acb_dirichlet/dft.c @@ -58,4 +58,3 @@ acb_dirichlet_dft(acb_ptr w, acb_srcptr v, const dirichlet_group_t G, slong prec dirichlet_char_clear(x); flint_free(t1); } - diff --git a/acb_dirichlet/test/t-dft.c b/acb_dirichlet/test/t-dft.c index cf214449..8694625a 100644 --- a/acb_dirichlet/test/t-dft.c +++ b/acb_dirichlet/test/t-dft.c @@ -81,7 +81,7 @@ int main() w1 = _acb_vec_init(len); w2 = _acb_vec_init(len); acb_init(chiy); - acb_dirichlet_roots_init(roots, len, len, prec); + acb_dirichlet_roots_init(roots, G->expo, len, prec); dirichlet_char_init(x, G); dirichlet_char_init(y, G); @@ -126,4 +126,3 @@ int main() flint_printf("PASS\n"); return EXIT_SUCCESS; } -