26 lines
386 B
C
26 lines
386 B
C
/* { dg-do run } */
|
|
|
|
#include <complex>
|
|
|
|
typedef std::complex<double> NumType;
|
|
|
|
void
|
|
multiply(NumType a, NumType b, unsigned ac, NumType &ab)
|
|
{
|
|
NumType s;
|
|
for (unsigned j=0; j<ac; j++)
|
|
s = a * b;
|
|
ab = s;
|
|
}
|
|
extern "C" void abort (void);
|
|
int main()
|
|
{
|
|
NumType a(1,2), b(3,-2), c;
|
|
multiply(a, b, 1, c);
|
|
if (c.real() != 7
|
|
|| c.imag() != 4)
|
|
abort ();
|
|
return 0;
|
|
}
|
|
|