URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.dg/] [cpp/] [digraphs.c] - Rev 12
Compare with Previous | Blame | View Log
/* Copyright (C) 2000 Free Software Foundation, Inc. */ /* { dg-do run } */ /* { dg-options "-std=c99" } */ /* Fully test the 6 digraphs under c99 assumptions. Four are pasted, to check that digraph pasting works. */ extern int strcmp (const char *, const char *); extern void abort (void); extern int puts (const char *); #define err(str) do { puts(str); abort(); } while (0) %:define glue(x, y) x %:%: y /* #define glue(x, y) x ## y. */ #ifndef glue #error glue not defined! #endif %:define str(x) %:x /* #define str(x) #x */ int main (int argc, char *argv<::>) /* argv[] */ glue (<, %) /* { */ /* di_str[] = */ const char di_str glue(<, :)glue(:, >) = str(%:%:<::><%%>%:); /* Check the glue macro actually pastes, and that the spelling of all digraphs is preserved. */ if (glue(str, cmp) (di_str, "%:%:<::><%%>%:")) err ("Digraph spelling not preserved!"); return 0; glue (%, >) /* } */