gcc/testsuite/gcc.dg/format/ext-2.c

   1 /* Test for format extensions beyond the C standard and X/Open standard.
   2    Test for scanf formats.
   3 */
   4 /* Origin: Joseph Myers <jsm28@cam.ac.uk> */
   5 /* { dg-do compile } */
   6 /* { dg-options "-std=gnu99 -Wformat" } */
   7
   8 #include "format.h"
   9
  10 void
  11 foo (quad_t *qp, u_quad_t *uqp, quad_t *qn, long long int *llp,
  12      unsigned long long int *ullp, float *fp, char *s, void **pp, wchar_t *ls,
  13      int *ip, unsigned int *up)
  14 {
  15   /* As an extension, GCC allows the BSD length "q" for integer formats.
  16      This is largely obsoleted in C99 by %j, %ll and SCNd64.
  17   */
  18   scanf ("%qd%qi%qo%qu%qx%qX%qn", qp, qp, uqp, uqp, uqp, uqp, qn);
  19   scanf ("%qf", fp); /* { dg-warning "length" "bad use of %q" } */
  20   scanf ("%qF", fp); /* { dg-warning "length" "bad use of %q" } */
  21   scanf ("%qe", fp); /* { dg-warning "length" "bad use of %q" } */
  22   scanf ("%qE", fp); /* { dg-warning "length" "bad use of %q" } */
  23   scanf ("%qg", fp); /* { dg-warning "length" "bad use of %q" } */
  24   scanf ("%qG", fp); /* { dg-warning "length" "bad use of %q" } */
  25   scanf ("%qa", fp); /* { dg-warning "length" "bad use of %q" } */
  26   scanf ("%qA", fp); /* { dg-warning "length" "bad use of %q" } */
  27   scanf ("%qs", s); /* { dg-warning "length" "bad use of %q" } */
  28   scanf ("%q[abc]", s); /* { dg-warning "length" "bad use of %q" } */
  29   scanf ("%qc", s); /* { dg-warning "length" "bad use of %q" } */
  30   scanf ("%qp", pp); /* { dg-warning "length" "bad use of %q" } */
  31   scanf ("%qC", ls); /* { dg-warning "length" "bad use of %q" } */
  32   scanf ("%qS", ls); /* { dg-warning "length" "bad use of %q" } */
  33   /* As an extension, GCC allows the length "L" on integer formats
  34      (but not %n) as a synonym for "ll".
  35      This should be considered deprecated.
  36   */
  37   scanf ("%Ld%Li%Lo%Lu%Lx%LX", llp, llp, ullp, ullp, ullp, ullp);
  38   /* glibc also supports flags ' and I on scanf formats.  The ' flag applies
  39      to all formats scanning decimal values; the I flag only to decimal integer
  40      formats.
  41   */
  42   scanf ("%'d%'i%'u%'a%'A%'e%'E%'f%'F%'g%'G", ip, ip, up, fp, fp, fp, fp,
  43          fp, fp, fp, fp);
  44   scanf ("%'o", up); /* { dg-warning "flag" "bad use of ' flag" } */
  45   scanf ("%'x", up); /* { dg-warning "flag" "bad use of ' flag" } */
  46   scanf ("%'X", up); /* { dg-warning "flag" "bad use of ' flag" } */
  47   scanf ("%'n", ip); /* { dg-warning "flag" "bad use of ' flag" } */
  48   scanf ("%'s", s); /* { dg-warning "flag" "bad use of ' flag" } */
  49   scanf ("%'[abc]", s); /* { dg-warning "flag" "bad use of ' flag" } */
  50   scanf ("%'c", s); /* { dg-warning "flag" "bad use of ' flag" } */
  51   scanf ("%'p", pp); /* { dg-warning "flag" "bad use of ' flag" } */
  52   scanf ("%'C", ls); /* { dg-warning "flag" "bad use of ' flag" } */
  53   scanf ("%'S", ls); /* { dg-warning "flag" "bad use of ' flag" } */
  54   scanf ("%Id%Ii%Iu", ip, ip, up);
  55   scanf ("%Ia", fp); /* { dg-warning "flag" "bad use of I flag" } */
  56   scanf ("%IA", fp); /* { dg-warning "flag" "bad use of I flag" } */
  57   scanf ("%Ie", fp); /* { dg-warning "flag" "bad use of I flag" } */
  58   scanf ("%IE", fp); /* { dg-warning "flag" "bad use of I flag" } */
  59   scanf ("%If", fp); /* { dg-warning "flag" "bad use of I flag" } */
  60   scanf ("%IF", fp); /* { dg-warning "flag" "bad use of I flag" } */
  61   scanf ("%Ig", fp); /* { dg-warning "flag" "bad use of I flag" } */
  62   scanf ("%IG", fp); /* { dg-warning "flag" "bad use of I flag" } */
  63   scanf ("%Io", up); /* { dg-warning "flag" "bad use of I flag" } */
  64   scanf ("%Ix", up); /* { dg-warning "flag" "bad use of I flag" } */
  65   scanf ("%IX", up); /* { dg-warning "flag" "bad use of I flag" } */
  66   scanf ("%In", ip); /* { dg-warning "flag" "bad use of I flag" } */
  67   scanf ("%Is", s); /* { dg-warning "flag" "bad use of I flag" } */
  68   scanf ("%I[abc]", s); /* { dg-warning "flag" "bad use of I flag" } */
  69   scanf ("%Ic", s); /* { dg-warning "flag" "bad use of I flag" } */
  70   scanf ("%Ip", pp); /* { dg-warning "flag" "bad use of I flag" } */
  71   scanf ("%IC", ls); /* { dg-warning "flag" "bad use of I flag" } */
  72   scanf ("%IS", ls); /* { dg-warning "flag" "bad use of I flag" } */
  73 }