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