1// { dg-do run { xfail broken_cplxf_arg } }
2// { dg-options "-O0" }
3// 2000-11-20
4// Benjamin Kosnik bkoz@redhat.com
5
6// Copyright (C) 2000-2015 Free Software Foundation, Inc.
7//
8// This file is part of the GNU ISO C++ Library.  This library is free
9// software; you can redistribute it and/or modify it under the
10// terms of the GNU General Public License as published by the
11// Free Software Foundation; either version 3, or (at your option)
12// any later version.
13
14// This library is distributed in the hope that it will be useful,
15// but WITHOUT ANY WARRANTY; without even the implied warranty of
16// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17// GNU General Public License for more details.
18
19// You should have received a copy of the GNU General Public License along
20// with this library; see the file COPYING3.  If not see
21// <http://www.gnu.org/licenses/>.
22
23#include <complex>
24#include <testsuite_hooks.h>
25
26void test01()
27{
28 using namespace std;
29 bool test __attribute__((unused)) = true;
30 typedef complex<double> complex_type;
31 const double cd1 = -11.451;
32 const double cd2 = -442.1533;
33
34 complex_type a(cd1, cd2);
35 double d;
36 d = a.real();
37 VERIFY( d == cd1 );
38
39 d = a.imag();
40 VERIFY( d == cd2 );
41
42 complex_type c(cd1, cd2);
43 double d6 = abs(c);
44 VERIFY( d6 >= 0 );
45
46 double d7 = arg(c);
47 double d8 = atan2(c.imag(), c.real());
48 VERIFY( d7 == d8 );
49
50 double d9 = norm(c);
51 double d10 = d6 * d6;
52 VERIFY( d9 - d10 == 0 );
53
54 complex_type e __attribute__((unused)) = conj(c);
55
56 complex_type f = polar(c.imag(), 0.0);
57 VERIFY( f.real() != 0 );
58}
59
60
61int main()
62{
63  test01();
64  return 0;
65}
66