1/*
2   { dg-options "-ftrack-macro-expansion=1" }
3   { dg-do compile }
4*/
5
6#define OPERATE(OPRD1, OPRT, OPRD2) \
7do \
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
15void
16foo ()
17{
18  SHIFTL (0.1,0.2); /* { dg-message "in expansion of macro \[^\n\r\]SHIFTL" } */
19}
20