OSDN Git Service

fc9cb3dd7a640311010d4a4604b6e6a0302f7a4f
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / testsuite / tr1 / 5_numerical_facilities / random / ranlux3_01.cc
1 // 2006-08-22  Paolo Carlini  <pcarlini@suse.de>
2 //
3 // Copyright (C) 2006 Free Software Foundation, Inc.
4 //
5 // This file is part of the GNU ISO C++ Library.  This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 2, or (at your option)
9 // any later version.
10 //
11 // This 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
14 // GNU General Public License for more details.
15 //
16 // You should have received a copy of the GNU General Public License along
17 // with this library; see the file COPYING.  If not, write to the Free
18 // Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
19 // USA.
20
21 // 5.1.5 Engines with predefined parameters
22 // 5.1.5 [3]
23
24 #include <iostream>
25 #include <tr1/random>
26 #include <testsuite_hooks.h>
27
28 void
29 test01() 
30 {
31   bool test __attribute__((unused)) = true;
32
33   std::tr1::ranlux3_01 a;
34   for (int i = 0; i < 9999; ++i)
35     a();
36
37 #if _GLIBCXX_USE_C99_MATH_TR1
38   VERIFY( a() == 5957620 * std::tr1::ldexp(float(1), -24) );
39 #else
40   VERIFY( a() == 5957620 * std::pow(float(2), -24) );
41 #endif
42 }
43
44 int main()
45 {
46   test01();
47   return 0;
48 }