Mercurial > hg > octave-shane > gnulib-hg

comparison tests/test-j0.c @ 12792:656f679a1424

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests for module 'j0'.
author Bruno Haible <bruno@clisp.org>
date Mon, 25 Jan 2010 02:06:54 +0100
parents
children 97fc9a21a8fb
comparison
equal deleted inserted replaced
12791:e9c8696b3410 12792:656f679a1424
1 /* Test of j0() function.
2 Copyright (C) 2010 Free Software Foundation, Inc.
3
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
16
17 /* Written by Bruno Haible <bruno@clisp.org>, 2010. */
18
19 #include <config.h>
20
21 #include <math.h>
22
23 #include "signature.h"
24 SIGNATURE_CHECK (j0, double, (double));
25
26 #include "macros.h"
27
28 volatile double x;
29 double y;
30
31 int
32 main ()
33 {
34 /* A particular value. */
35 x = 3.8;
36 y = j0 (x);
37 ASSERT (y >= -0.4025564102 && y <= -0.4025564101);
38
39 return 0;
40 }