|
111
|
1 /* Test for gcc_gfc formats. */
|
|
|
2 /* Origin: Kaveh Ghazi <ghazi@caip.rutgers.edu> */
|
|
|
3 /* { dg-do compile } */
|
|
|
4 /* { dg-options "-Wformat" } */
|
|
|
5
|
|
|
6 #include "format.h"
|
|
|
7
|
|
|
8 /* Magic identifier must be set before the attribute is used. */
|
|
|
9 typedef struct locus locus;
|
|
|
10
|
|
|
11 extern int gfc_warn (const char *, ...) __attribute__ ((__format__ (__gcc_gfc__, 1, 2))) __attribute__ ((__nonnull__));
|
|
|
12
|
|
|
13 void
|
|
|
14 foo (unsigned int u, int i, char *s, unsigned long int ul, long int l,
|
|
|
15 llong ll, locus *loc)
|
|
|
16 {
|
|
|
17 /* Acceptable C90 specifiers, flags and modifiers. */
|
|
|
18 gfc_warn ("%%");
|
|
|
19 gfc_warn ("%u%d%i%c%s%%", u, i, i, i, s);
|
|
|
20 gfc_warn ("%lu%ld%li%%", ul, l, l);
|
|
|
21
|
|
|
22 /* Extensions provided in gfc_warn. */
|
|
|
23 gfc_warn ("%C");
|
|
|
24 gfc_warn ("%L", loc);
|
|
|
25
|
|
|
26 /* Various tests of bad argument types. */
|
|
|
27 gfc_warn ("%d", l); /* { dg-warning "format" "bad argument types" } */
|
|
|
28 gfc_warn ("%d", ll); /* { dg-warning "format" "bad argument types" } */
|
|
|
29 gfc_warn ("%s", &i); /* { dg-warning "format" "bad argument types" } */
|
|
|
30 gfc_warn ("%L", &i); /* { dg-warning "format" "bad argument types" } */
|
|
|
31 gfc_warn ("%C", i); /* { dg-warning "format" "too many arguments" } */
|
|
|
32 }
|
