blob: 7df15540833a7f69bf895139a14a4cd3d7c2d071 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
/* 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;
}
|
