OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [other/] [complex1.C] - Rev 801

Go to most recent revision | Compare with Previous | Blame | View Log

// PR middle-end/18882
// Origin: Petr Mikulik <mikulik@physics.muni.cz>
// Testcase by Wolfgang Bangerth <bangerth@dealii.com>

// { dg-do run }
// { dg-options "" }

extern "C" void abort ();

struct C {
  __complex__ long double c; 
};

void foo()
{ 
  C x = {2+2i}; 

  int n = 1; 
  C y = (n==1) ? x : (C){3+3i}; 
  if (__imag__ y.c != 2) 
    abort (); 
}

int main(void)
{
  foo ();
  return 0;
}

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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