diff options
| author | Neil Booth <neilb@earthling.net> | 2000-11-21 00:00:50 +0000 |
|---|---|---|
| committer | Neil Booth <neil@gcc.gnu.org> | 2000-11-21 00:00:50 +0000 |
| commit | e6afac9494c56fac1569a712542f0b312d2db594 (patch) | |
| tree | a98d50392ba97f2edde1de976d7865550c49e135 /gcc | |
| parent | d63eefbf11b683243cea847033266a3ed6f460dc (diff) | |
| download | gcc-e6afac9494c56fac1569a712542f0b312d2db594.zip gcc-e6afac9494c56fac1569a712542f0b312d2db594.tar.gz gcc-e6afac9494c56fac1569a712542f0b312d2db594.tar.bz2 | |
paste2.c: Update test.
* gcc.dg/cpp/paste2.c: Update test.
* objc/execute/paste.m: New test.
From-SVN: r37597
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.dg/cpp/paste2.c | 6 | ||||
| -rw-r--r-- | gcc/testsuite/objc/execute/paste.m | 21 |
3 files changed, 30 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6fb01f8..bfb9405 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2000-11-20 Neil Booth <neilb@earthling.net> + + * gcc.dg/cpp/paste2.c: Update test. + * objc/execute/paste.m: New test. + 2000-11-20 Joseph S. Myers <jsm28@cam.ac.uk> * gcc.dg/c99-condexpr-1.c: New test. diff --git a/gcc/testsuite/gcc.dg/cpp/paste2.c b/gcc/testsuite/gcc.dg/cpp/paste2.c index 9721856..1958918d 100644 --- a/gcc/testsuite/gcc.dg/cpp/paste2.c +++ b/gcc/testsuite/gcc.dg/cpp/paste2.c @@ -106,10 +106,12 @@ int main () err ("Various operator pasting"); if (strcmp (hh, "%:%:")) err ("Pasted digraph spelling"); + if ((glue (., 1) glue (!, =) .1)) + err ("Pasted numbers 1"); /* glue3 here will only work if we paste left-to-right. If a future implementation does not do this, change the test. */ - if ((glue (., 0) glue (=, =) .0) + (glue3 (1.0e, +, 1) == 10.0) != 2) - err ("Pasted numbers"); + if (glue3 (1.0e, +, 1) != 10.0) + err ("Pasted numbers 2"); } return 0; diff --git a/gcc/testsuite/objc/execute/paste.m b/gcc/testsuite/objc/execute/paste.m new file mode 100644 index 0000000..ad69f38 --- /dev/null +++ b/gcc/testsuite/objc/execute/paste.m @@ -0,0 +1,21 @@ +/* Copyright (C) 2000 Free Software Foundation, Inc. */ + +/* { dg-do run } */ +/* { dg-options "" } */ + +#define str(x) #x +#define xstr(x) str(x) +#define glue(x, y) x ## y +extern int strcmp (const char *, const char *); +extern int puts (const char *); +extern void abort (void); +#define err(str) do { puts(str); abort(); } while (0) + +int +main () +{ + /* Test Objective C names. */ + if (strcmp (xstr (glue (@, ident)), "@ident")) + err ("Objective C names"); + return 0; +} |