Subversion Repositories openrisc_2011-10-31

// { dg-do run  }

// { dg-do run  }

// { dg-options "" }

// { dg-options "" }

// This test makes sure that the stuff in lex.c (real_yylex) is

// 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

// 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

// a bug where the compiler was not converting the integer `90' to a

// complex number, unless you did `90.0'.  Fixed 10/1/1997.

// complex number, unless you did `90.0'.  Fixed 10/1/1997.

extern "C" {

extern "C" {

int printf (const char *, ...);

int printf (const char *, ...);

void exit (int);

void exit (int);

void abort (void);

void abort (void);

}

}

__complex__ double cd;

__complex__ double cd;

int one = 1;

int one = 1;

int

int

main()

main()

{

{

  cd = 1.0+90i;

  cd = 1.0+90i;

  cd *= one;

  cd *= one;

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

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

    abort ();

    abort ();

  exit (0);

  exit (0);

}

}