Fix ldbl-128ibm iscanonical for -mlong-double-64.
[glibc.git] / stdlib / tst-random2.c
blob42d642460c59a94855f87a92d8b9168c3d09daea
1 /* Test initstate saving the old state.
2 Copyright (C) 2005-2016 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Jakub Jelinek <jakub@redhat.com>, 2005.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <http://www.gnu.org/licenses/>. */
20 #include <stdio.h>
21 #include <stdlib.h>
23 static int
24 do_test (void)
26 int pass;
27 int ret = 0;
28 long int r[2];
30 for (pass = 0; pass < 2; pass++)
32 srandom (0x12344321);
34 int j;
35 for (j = 0; j < 3; ++j)
36 random ();
37 if (pass == 1)
39 char state[128];
40 char *ostate = initstate (0x34562101, state, 128);
41 if (setstate (ostate) != state)
43 puts ("setstate (ostate) != state");
44 ret = 1;
48 random ();
49 r[pass] = random ();
52 if (r[0] != r[1])
54 printf ("%ld != %ld\n", r[0], r[1]);
55 ret = 1;
57 return ret;
60 #define TEST_FUNCTION do_test ()
61 #include "../test-skeleton.c"