OSDN Git Service

Licensing changes to GPLv3 resp. GPLv3 with GCC Runtime Exception.
[pf3gnuchains/gcc-fork.git] / libstdc++-v3 / testsuite / tr1 / 5_numerical_facilities / random / ranlux4_01.cc
1 // 2006-08-22  Paolo Carlini  <pcarlini@suse.de>
2 //
3 // Copyright (C) 2006, 2009 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 3, 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 COPYING3.  If not see
18 // <http://www.gnu.org/licenses/>.
19
20 // 5.1.5 Engines with predefined parameters
21 // 5.1.5 [3]
22
23 #include <tr1/random>
24 #include <testsuite_hooks.h>
25
26 void
27 test01() 
28 {
29   bool test __attribute__((unused)) = true;
30
31   std::tr1::ranlux4_01 a;
32   for (int i = 0; i < 9999; ++i)
33     a();
34
35 #if _GLIBCXX_USE_C99_MATH_TR1
36   VERIFY( a() == 8587295 * std::tr1::ldexp(float(1), -24) );
37 #else
38   VERIFY( a() == 8587295 * std::pow(float(2), -24) );
39 #endif
40 }
41
42 int main()
43 {
44   test01();
45   return 0;
46 }