_pragma5.c

来自「俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）」· C语言 代码 · 共 15 行

/* { dg-do preprocess } */

/* Based on Debian GNATS PR 8524.  17 Nov 2002.  */

#define ALPHA(A) alpha_ ## A
#define BETA(B) beta_ ## B
#define GAMMA(C) _Pragma("moose") ALPHA(C) BETA(C)
GAMMA(baz);

/*
   { dg-final { if ![file exists _Pragma5.i] { return }                   } }
   { dg-final { if { [grep _Pragma5.i "alpha_baz beta_baz;"] != "" } { return }  } }
   { dg-final { fail "_Pragma5.c: _Pragma in macro"                       } }
*/