1 /* Test for scanf formats. Formats using C90 features, including cases
2 where C90 specifies some aspect of the format to be ignored or where
3 the behaviour is undefined.
5 /* Origin: Joseph Myers <jsm28@cam.ac.uk> */
6 /* { dg-do compile } */
7 /* { dg-options "-std=iso9899:1990 -pedantic -Wformat" } */
9 typedef __WCHAR_TYPE__ wchar_t;
11 __extension__ typedef long long int llong;
12 __extension__ typedef unsigned long long int ullong;
14 extern int scanf (const char *, ...);
16 #define NULL ((void *)0)
19 foo (int *ip, unsigned int *uip, short int *hp, unsigned short int *uhp,
20 long int *lp, unsigned long int *ulp, float *fp, double *dp,
21 long double *ldp, char *s, signed char *ss, unsigned char *us,
22 void **pp, int *n, llong *llp, ullong *ullp, wchar_t *ls,
23 const int *cip, const int *cn, const char *cs, const void **ppc,
24 void *const *pcp, short int *hn, long int *ln, void *p, char **sp,
27 /* See ISO/IEC 9899:1990 (E) subclause 7.9.6.2 (pages 134-138). */
28 /* Basic sanity checks for the different components of a format. */
35 scanf ("%d %ld", ip, lp);
36 /* Valid and invalid %% constructions. */
38 scanf ("%*%"); /* { dg-warning "format" "bogus %%" } */
39 scanf ("%*%\n"); /* { dg-warning "format" "bogus %%" } */
40 scanf ("%4%"); /* { dg-warning "format" "bogus %%" } */
41 scanf ("%4%\n"); /* { dg-warning "format" "bogus %%" } */
42 scanf ("%h%"); /* { dg-warning "format" "bogus %%" } */
43 scanf ("%h%\n"); /* { dg-warning "format" "bogus %%" } */
44 /* Valid, invalid and silly assignment-suppression constructions. */
45 scanf ("%*d%*i%*o%*u%*x%*X%*e%*E%*f%*g%*G%*s%*[abc]%*c%*p");
46 scanf ("%*2d%*8s%*3c");
47 scanf ("%*n", n); /* { dg-warning "suppress" "suppression of %n" } */
48 scanf ("%*hd"); /* { dg-warning "together" "suppression with length" } */
49 /* Valid, invalid and silly width constructions. */
50 scanf ("%2d%3i%4o%5u%6x%7X%8e%9E%10f%11g%12G%13s%14[abc]%15c%16p",
51 ip, ip, uip, uip, uip, uip, fp, fp, fp, fp, fp, s, s, s, pp);
52 scanf ("%0d", ip); /* { dg-warning "width" "warning for zero width" } */
53 scanf ("%3n", n); /* { dg-warning "width" "width with %n" } */
54 /* Valid and invalid %h, %l, %L constructions. */
55 scanf ("%hd%hi%ho%hu%hx%hX%hn", hp, hp, uhp, uhp, uhp, uhp, hn);
56 scanf ("%he", fp); /* { dg-warning "length" "bad use of %h" } */
57 scanf ("%hE", fp); /* { dg-warning "length" "bad use of %h" } */
58 scanf ("%hf", fp); /* { dg-warning "length" "bad use of %h" } */
59 scanf ("%hg", fp); /* { dg-warning "length" "bad use of %h" } */
60 scanf ("%hG", fp); /* { dg-warning "length" "bad use of %h" } */
61 scanf ("%hs", s); /* { dg-warning "length" "bad use of %h" } */
62 scanf ("%h[ac]", s); /* { dg-warning "length" "bad use of %h" } */
63 scanf ("%hc", s); /* { dg-warning "length" "bad use of %h" } */
64 scanf ("%hp", pp); /* { dg-warning "length" "bad use of %h" } */
65 scanf ("%h"); /* { dg-warning "conversion lacks type" "bare %h" } */
66 scanf ("%h."); /* { dg-warning "conversion" "bogus %h" } */
67 scanf ("%ld%li%lo%lu%lx%lX%ln", lp, lp, ulp, ulp, ulp, ulp, ln);
68 scanf ("%le%lE%lf%lg%lG", dp, dp, dp, dp, dp);
69 scanf ("%lp", pp); /* { dg-warning "length" "bad use of %l" } */
70 /* These next three formats were added in C94. */
71 scanf ("%ls", ls); /* { dg-warning "length|C" "bad use of %l" } */
72 scanf ("%l[ac]", ls); /* { dg-warning "length|C" "bad use of %l" } */
73 scanf ("%lc", ls); /* { dg-warning "length|C" "bad use of %l" } */
74 scanf ("%Le%LE%Lf%Lg%LG", ldp, ldp, ldp, ldp, ldp);
75 scanf ("%Ld", llp); /* { dg-warning "does not support" "bad use of %L" } */
76 scanf ("%Li", llp); /* { dg-warning "does not support" "bad use of %L" } */
77 scanf ("%Lo", ullp); /* { dg-warning "does not support" "bad use of %L" } */
78 scanf ("%Lu", ullp); /* { dg-warning "does not support" "bad use of %L" } */
79 scanf ("%Lx", ullp); /* { dg-warning "does not support" "bad use of %L" } */
80 scanf ("%LX", ullp); /* { dg-warning "does not support" "bad use of %L" } */
81 scanf ("%Ls", s); /* { dg-warning "length" "bad use of %L" } */
82 scanf ("%L[ac]", s); /* { dg-warning "length" "bad use of %L" } */
83 scanf ("%Lc", s); /* { dg-warning "length" "bad use of %L" } */
84 scanf ("%Lp", pp); /* { dg-warning "length" "bad use of %L" } */
85 scanf ("%Ln", n); /* { dg-warning "length" "bad use of %L" } */
86 /* Valid uses of each bare conversion. */
87 scanf ("%d%i%o%u%x%X%e%E%f%g%G%s%[abc]%c%p%n%%", ip, ip, uip, uip, uip,
88 uip, fp, fp, fp, fp, fp, s, s, s, pp, n);
89 /* Allow other character pointers with %s, %c, %[]. */
90 scanf ("%2s%3s%4c%5c%6[abc]%7[abc]", ss, us, ss, us, ss, us);
91 /* Further tests for %[]. */
92 scanf ("%[%d]%d", s, ip);
93 scanf ("%[^%d]%d", s, ip);
94 scanf ("%[]%d]%d", s, ip);
95 scanf ("%[^]%d]%d", s, ip);
96 scanf ("%[%d]%d", s, ip);
97 scanf ("%[]abcd", s); /* { dg-warning "no closing" "incomplete scanset" } */
98 /* Various tests of bad argument types. Some of these are only pedantic
101 scanf ("%d", lp); /* { dg-warning "format" "bad argument types" } */
102 scanf ("%d", uip); /* { dg-warning "format" "bad argument types" } */
103 scanf ("%d", pp); /* { dg-warning "format" "bad argument types" } */
104 scanf ("%p", ppc); /* { dg-warning "format" "bad argument types" } */
105 scanf ("%p", ppv); /* { dg-warning "format" "bad argument types" } */
106 scanf ("%s", n); /* { dg-warning "format" "bad argument types" } */
107 scanf ("%s", p); /* { dg-warning "format" "bad argument types" } */
108 scanf ("%p", p); /* { dg-warning "format" "bad argument types" } */
109 scanf ("%p", sp); /* { dg-warning "format" "bad argument types" } */
110 /* Tests for writing into constant values. */
111 scanf ("%d", cip); /* { dg-warning "constant" "%d writing into const" } */
112 scanf ("%n", cn); /* { dg-warning "constant" "%n writing into const" } */
113 scanf ("%s", cs); /* { dg-warning "constant" "%s writing into const" } */
114 scanf ("%p", pcp); /* { dg-warning "constant" "%p writing into const" } */
115 /* Wrong number of arguments. */
116 scanf ("%d%d", ip); /* { dg-warning "arguments" "wrong number of args" } */
117 scanf ("%d", ip, ip); /* { dg-warning "arguments" "wrong number of args" } */
118 /* Miscellaneous bogus constructions. */
119 scanf (""); /* { dg-warning "zero-length" "warning for empty format" } */
120 scanf ("\0"); /* { dg-warning "embedded" "warning for embedded NUL" } */
121 scanf ("%d\0", ip); /* { dg-warning "embedded" "warning for embedded NUL" } */
122 scanf ("%d\0%d", ip, ip); /* { dg-warning "embedded|too many" "warning for embedded NUL" } */
123 scanf (NULL); /* { dg-warning "null" "null format string warning" } */
124 scanf ("%"); /* { dg-warning "trailing" "trailing % warning" } */
125 scanf ("%d", (int *)0); /* { dg-warning "null" "writing into NULL" } */