Subversion Repositories openrisc

/* Copyright (C) 2000 Free Software Foundation, Inc.  */
 
/* { dg-do run } */
/* { dg-options "-trigraphs" } */
 
/* Test lexing of numbers.  */
 
extern int puts (const char *);
extern void abort (void);
#define err(str) do { puts(str); abort(); } while (0)
 
/* Escaped newlines.  */
#define foo 12\
3\
\
4??/
5
 
#if foo != 12345
#error foo
#endif
 
int main (int argc, char *argv[])
{
  double a = 5.;
  double x = .5;
 
/* Decimal points, including initially and immediately before and
   after an escaped newline.  */
  if (a != 5)
    err ("a");
  if (x != .\
5)
    err ("x != .5");
  x = 25\
.\
6;
  if (x != 25.6)
    err ("x != 25.6");
 
  /* Test exponentials and their signs.  A buggy lexer is more likely
     to fail the compile, but never mind.  */
  if (250 != 25e+1 || 250 != 25e1 || 250 != 2500e-1)
    err ("exponentials");
 
  /* Todo: p exponentials, and how to test preprocessing number
     tokenisation?  */
 
  return 0;
}