1  /* Test for gcc_gfc formats.  */
       2  /* Origin: Kaveh Ghazi <ghazi@caip.rutgers.edu> */
       3  /* { dg-do compile } */
       4  /* { dg-options "-Wformat" } */
       5  
       6  #include "format.h"
       7  
       8  /* Magic identifier must be set before the attribute is used.  */
       9  typedef struct locus locus;
      10  
      11  extern int gfc_warn (const char *, ...) __attribute__ ((__format__ (__gcc_gfc__, 1, 2))) __attribute__ ((__nonnull__));
      12  
      13  void
      14  foo (unsigned int u, int i, char *s, unsigned long int ul, long int l,
      15       llong ll, locus *loc)
      16  {
      17    /* Acceptable C90 specifiers, flags and modifiers.  */
      18    gfc_warn ("%%");
      19    gfc_warn ("%u%d%i%c%s%%", u, i, i, i, s);
      20    gfc_warn ("%lu%ld%li%%", ul, l, l);
      21  
      22    /* Extensions provided in gfc_warn.  */
      23    gfc_warn ("%C");
      24    gfc_warn ("%L", loc);
      25  
      26    /* Various tests of bad argument types.  */
      27    gfc_warn ("%d", l); /* { dg-warning "format" "bad argument types" } */
      28    gfc_warn ("%d", ll); /* { dg-warning "format" "bad argument types" } */
      29    gfc_warn ("%s", &i); /* { dg-warning "format" "bad argument types" } */
      30    gfc_warn ("%L", &i); /* { dg-warning "format" "bad argument types" } */
      31    gfc_warn ("%C", i); /* { dg-warning "format" "too many arguments" } */
      32  }