/* Test for printf formats.  Formats using extensions to the standard
   should be rejected in strict pedantic mode.
*/
/* Origin: Joseph Myers <jsm28@cam.ac.uk> */
/* { dg-do compile { target { *-*-mingw* } } } */
/* { dg-options "-std=iso9899:1999 -pedantic -Wformat" } */

#define USE_SYSTEM_FORMATS
#include "format.h"

void
foo (int i, long long ll, size_t z, wint_t lc, wchar_t *ls)
{
  /* The length modifiers q, Z and L as applied to integer formats are
     extensions.
  */
  printf ("%qd", ll); /* { dg-warning "unknown|format" "%q length is unsupported" } */
  printf ("%Ld", ll); /* { dg-warning "unknown|format" "%L length is unsupported" } */
  printf ("%Zd", z); /* { dg-warning "unknown|format" "%Z length is unsupported" } */
  /* The conversion specifiers C and S are X/Open extensions; the
     conversion specifier m is a GNU extension.
  */
  printf ("%m"); /* { dg-warning "unknown" "printf %m is unsupported" } */
  printf ("%C", lc); /* { dg-warning "C" "printf %C" } */
  printf ("%S", ls); /* { dg-warning "C" "printf %S" } */
  /* The flag character ', and the use of operand number $ formats, are
     X/Open extensions.
  */
  printf ("%'d", i); /* { dg-warning "C" "printf ' flag" } */
  printf ("%1$d", i); /* { dg-warning "C" "printf $ format" } */
  printf ("%Ix", z); /* { dg-warning "C" "printf I format" } */
}