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 10void 11foo (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} 74