/* n_26.c:  The name once replaced is not furthur replaced. */

/* 26.1:    Directly recursive object-like macro definition.    */

/*  Z(0);   */

#define Z   Z(0)

    Z;

/* 26.2:    Intermediately recursive object-like macro definition.  */

/*  AB; */

#define AB  BA

#define BA  AB

    AB;

/* 26.3:    Directly recursive function-like macro definition.  */

/*  x + f(x);   */

#define f(a)    a + f(a)

    f( x);

/* 26.4:    Intermediately recursive function-like macro definition.    */

/*  x + x + g( x);  */

#define g(a)    a + h( a)

#define h(a)    a + g( a)

    g( x);

/* 26.5:    Rescanning encounters the non-replaced macro name.  */

/*  Z(0) + f( Z(0));    */

    f( Z);

/* { dg-do preprocess }

   { dg-final { if ![file exist n_26.i] { return }                      } }

   { dg-final { if \{ [grep n_26.i "Z\\(0\\)"] != ""            \} \{   } }

   { dg-final { if \{ [grep n_26.i "AB"] != ""                  \} \{   } }

   { dg-final { if \{ [grep n_26.i "x *\\+ f\\( *x *\\)"] != "" \} \{   } }

   { dg-final { if \{ [grep n_26.i "x *\\+ *x *\\+ *g\\( *x *\\)"] != ""    \} \{   } }

   { dg-final { if \{ [grep n_26.i "Z\\(0\\) *\\+ f\\( *Z\\(0\\) *\\)"] != ""   \} \{   } }

   { dg-final { return \} \} \} \} \}                                   } }

   { dg-final { fail "n_26.c: recursive macro"                          } }

 */