1 /*
2    { dg-options "-ftrack-macro-expansion=1" }
3    { dg-do compile }
4 */
5 
6 #define OPERATE(OPRD1, OPRT, OPRD2) \
7 do \
8 { \
9   OPRD1 OPRT OPRD2; /* { dg-message "definition" }*/ 	   \
10 } while (0)
11 
12 #define SHIFTL(A,B) \
13   OPERATE (A,<<,B) /* { dg-error "invalid operands" } */
14 
15 void
foo()16 foo ()
17 {
18   SHIFTL (0.1,0.2); /* { dg-message "in expansion of macro \[^\n\r\]SHIFTL" } */
19 }
20