|
Packit Service |
8bf002 |
/* n_nularg.c: Empty argument of macro call. */
|
|
Packit Service |
8bf002 |
|
|
Packit Service |
8bf002 |
#define ARG( a) # a
|
|
Packit Service |
8bf002 |
#define EMPTY
|
|
Packit Service |
8bf002 |
#define SHOWN( n) printf( "%s : %d\n", # n, n)
|
|
Packit Service |
8bf002 |
#define SHOWS( s) printf( "%s : %s\n", # s, ARG( s))
|
|
Packit Service |
8bf002 |
#define add( a, b) (a + b)
|
|
Packit Service |
8bf002 |
#define sub( a, b) (a - b)
|
|
Packit Service |
8bf002 |
#define math( op, a, b) op( a, b)
|
|
Packit Service |
8bf002 |
#define APPEND( a, b) a ## b
|
|
Packit Service |
8bf002 |
|
|
Packit Service |
8bf002 |
/* printf( "%s : %d\n", "math( sub, , y)", ( - y)); */
|
|
Packit Service |
8bf002 |
SHOWN( math( sub, , y));
|
|
Packit Service |
8bf002 |
|
|
Packit Service |
8bf002 |
/* printf( "%s : %s\n", "EMPTY", ""); */
|
|
Packit Service |
8bf002 |
SHOWS( EMPTY);
|
|
Packit Service |
8bf002 |
|
|
Packit Service |
8bf002 |
/* printf( "%s : %s\n", "APPEND( CON, 1)", "CON1"); */
|
|
Packit Service |
8bf002 |
SHOWS( APPEND( CON, 1));
|
|
Packit Service |
8bf002 |
|
|
Packit Service |
8bf002 |
/* printf( "%s : %s\n", "APPEND( , )", ""); */
|
|
Packit Service |
8bf002 |
SHOWS( APPEND( , ));
|
|
Packit Service |
8bf002 |
|
|
Packit Service |
8bf002 |
/* { dg-do preprocess }
|
|
Packit Service |
8bf002 |
{ dg-options "-std=c99 -w" }
|
|
Packit Service |
8bf002 |
{ dg-final { if ![file exist n_nularg.i] { return } } }
|
|
Packit Service |
8bf002 |
{ dg-final { if \{ [grep n_nularg.i "printf\\( \"%s : %d\\\\n\", \"math\\( sub, , y\\)\", *\\( *- *y *\\) *\\)" ] != "" \} \{ } }
|
|
Packit Service |
8bf002 |
{ dg-final { if \{ [grep n_nularg.i "printf\\( \"%s : %s\\\\n\", \"EMPTY\", *\"\" *\\)" ] != "" \} \{ } }
|
|
Packit Service |
8bf002 |
{ dg-final { if \{ [grep n_nularg.i "printf\\( \"%s : %s\\\\n\", \"APPEND\\( CON, 1\\)\", *\"CON1\" *\\)" ] != "" \} \{ } }
|
|
Packit Service |
8bf002 |
{ dg-final { if \{ [grep n_nularg.i "printf\\( \"%s : %s\\\\n\", \"APPEND\\( , \\)\", *\"\" *\\)" ] != "" \} \{ } }
|
|
Packit Service |
8bf002 |
{ dg-final { return \} \} \} \} } }
|
|
Packit Service |
8bf002 |
{ dg-final { fail "n_nularg.c: empty argument" } }
|
|
Packit Service |
8bf002 |
*/
|
|
Packit Service |
8bf002 |
|