1  /* Test for scanf formats: rejection of DFP formats in pedantic mode.  */
       2  /* { dg-do compile } */
       3  /* { dg-require-effective-target dfp } */
       4  /* { dg-options "-std=gnu11 -pedantic -Wformat" } */
       5  
       6  #include "format.h"
       7  
       8  void
       9  foo (_Decimal32 *d32, _Decimal64 *d64, _Decimal128 *d128) /* { dg-warning "ISO C" } */
      10  {
      11    scanf ("%Ha", d32); /* { dg-warning "C" } */
      12    scanf ("%HA", d32); /* { dg-warning "C" } */
      13    scanf ("%He", d32); /* { dg-warning "C" } */
      14    scanf ("%HE", d32); /* { dg-warning "C" } */
      15    scanf ("%Hf", d32); /* { dg-warning "C" } */
      16    scanf ("%HF", d32); /* { dg-warning "C" } */
      17    scanf ("%Hg", d32); /* { dg-warning "C" } */
      18    scanf ("%HG", d32); /* { dg-warning "C" } */
      19    scanf ("%Da", d64); /* { dg-warning "C" } */
      20    scanf ("%DA", d64); /* { dg-warning "C" } */
      21    scanf ("%De", d64); /* { dg-warning "C" } */
      22    scanf ("%DE", d64); /* { dg-warning "C" } */
      23    scanf ("%Df", d64); /* { dg-warning "C" } */
      24    scanf ("%DF", d64); /* { dg-warning "C" } */
      25    scanf ("%Dg", d64); /* { dg-warning "C" } */
      26    scanf ("%DG", d64); /* { dg-warning "C" } */
      27    scanf ("%DDa", d128); /* { dg-warning "C" } */
      28    scanf ("%DDA", d128); /* { dg-warning "C" } */
      29    scanf ("%DDe", d128); /* { dg-warning "C" } */
      30    scanf ("%DDE", d128); /* { dg-warning "C" } */
      31    scanf ("%DDf", d128); /* { dg-warning "C" } */
      32    scanf ("%DDF", d128); /* { dg-warning "C" } */
      33    scanf ("%DDg", d128); /* { dg-warning "C" } */
      34    scanf ("%DDG", d128); /* { dg-warning "C" } */
      35  }