/* Test for scanf formats: rejection of DFP formats in pedantic mode.  */
/* { dg-do compile } */
/* { dg-require-effective-target dfp } */
/* { dg-options "-std=gnu11 -pedantic -Wformat" } */

#include "format.h"

void
foo (_Decimal32 *d32, _Decimal64 *d64, _Decimal128 *d128) /* { dg-warning "ISO C" } */
{
  scanf ("%Ha", d32); /* { dg-warning "C" } */
  scanf ("%HA", d32); /* { dg-warning "C" } */
  scanf ("%He", d32); /* { dg-warning "C" } */
  scanf ("%HE", d32); /* { dg-warning "C" } */
  scanf ("%Hf", d32); /* { dg-warning "C" } */
  scanf ("%HF", d32); /* { dg-warning "C" } */
  scanf ("%Hg", d32); /* { dg-warning "C" } */
  scanf ("%HG", d32); /* { dg-warning "C" } */
  scanf ("%Da", d64); /* { dg-warning "C" } */
  scanf ("%DA", d64); /* { dg-warning "C" } */
  scanf ("%De", d64); /* { dg-warning "C" } */
  scanf ("%DE", d64); /* { dg-warning "C" } */
  scanf ("%Df", d64); /* { dg-warning "C" } */
  scanf ("%DF", d64); /* { dg-warning "C" } */
  scanf ("%Dg", d64); /* { dg-warning "C" } */
  scanf ("%DG", d64); /* { dg-warning "C" } */
  scanf ("%DDa", d128); /* { dg-warning "C" } */
  scanf ("%DDA", d128); /* { dg-warning "C" } */
  scanf ("%DDe", d128); /* { dg-warning "C" } */
  scanf ("%DDE", d128); /* { dg-warning "C" } */
  scanf ("%DDf", d128); /* { dg-warning "C" } */
  scanf ("%DDF", d128); /* { dg-warning "C" } */
  scanf ("%DDg", d128); /* { dg-warning "C" } */
  scanf ("%DDG", d128); /* { dg-warning "C" } */
}