1  /* 
       2     { dg-options "-ftrack-macro-expansion=1" }
       3     { dg-do compile }
       4  */
       5  
       6  #define OPERATE(OPRD1, OPRT, OPRD2) \
       7   OPRD1 OPRT OPRD2;	  /* { dg-message "in definition of macro 'OPERATE'" } */
       8  
       9  #define SHIFTL(A,B) \
      10    OPERATE (A,<<,B) /* { dg-message "invalid operands to binary <<" } */
      11  
      12  #define MULT(A) \
      13    SHIFTL (A,1)	   /* { dg-message "in expansion of macro 'SHIFTL'" } */
      14  
      15  void
      16  foo ()
      17  {
      18    MULT (1.0);	   /* { dg-message "in expansion of macro 'MULT'" } */
      19  }
      20