Subversion Repositories scarts

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

}