URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [cpp/] [lexnum.c] - Rev 298
Compare with Previous | Blame | View Log
/* 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; }