summaryrefslogtreecommitdiff
path: root/libstdc++-v3/testsuite/tr1/5_numerical_facilities/random/ranlux4_01.cc
blob: 290449cd3a4f602adc7b93a6adf9401eb4d318dd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
// 2006-08-22  Paolo Carlini  <pcarlini@suse.de>
//
// Copyright (C) 2006-2018 Free Software Foundation, Inc.
//
// This file is part of the GNU ISO C++ Library.  This library is free
// software; you can redistribute it and/or modify it under the
// terms of the GNU General Public License as published by the
// Free Software Foundation; either version 3, or (at your option)
// any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License along
// with this library; see the file COPYING3.  If not see
// <http://www.gnu.org/licenses/>.

// 5.1.5 Engines with predefined parameters
// 5.1.5 [3]

#include <tr1/random>
#include <testsuite_hooks.h>

void
test01()
{
  std::tr1::ranlux4_01 a;
  for (int i = 0; i < 9999; ++i)
    a();

#if _GLIBCXX_USE_C99_MATH_TR1
  VERIFY( a() == 8587295 * std::tr1::ldexp(float(1), -24) );
#else
  VERIFY( a() == 8587295 * std::pow(float(2), -24) );
#endif
}

int main()
{
  test01();
  return 0;
}