Subversion Repositories openrisc

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

// This test makes sure that the stuff in lex.c (real_yylex) is
// set up to handle real and imag numbers correctly.  This test is against
// a bug where the compiler was not converting the integer `90' to a
// complex number, unless you did `90.0'.  Fixed 10/1/1997.

extern "C" {
int printf (const char *, ...);
void exit (int);
void abort (void);
}

__complex__ double cd;

int one = 1;

int
main()
{
  cd = 1.0+90i;
  cd *= one;

  if (__real__ cd != 1 || __imag__ cd != 90)
    abort ();

  exit (0);
}