OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [libstdc++-v3/] [testsuite/] [26_numerics/] [complex/] [dr387.cc] - Blame information for rev 516

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 424 jeremybenn
// 2008-05-22  Paolo Carlini  <paolo.carlini@oracle.com>
2
//
3
// Copyright (C) 2008, 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
#include <complex>
21
#include <testsuite_hooks.h>
22
 
23
// DR 387. std::complex over-encapsulated.
24
template<typename T>
25
  void
26
  do_test()
27
  {
28
    bool test __attribute__((unused)) = true;
29
 
30
    const T r = 1.0;
31
    const T i = -1.0;
32
    const T v = 0.0;
33
 
34
    std::complex<T> z1(r, i);
35
    z1.real(v);
36
    VERIFY( z1.real() == v );
37
    VERIFY( z1.imag() == i );
38
 
39
    std::complex<T> z2(r, i);
40
    z2.imag(v);
41
    VERIFY( z2.real() == r );
42
    VERIFY( z2.imag() == v );
43
  }
44
 
45
int main()
46
{
47
  do_test<float>();
48
  do_test<double>();
49
  do_test<long double>();
50
  return 0;
51
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.