Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/format/gcc_gfc-1.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
/* Test for gcc_gfc formats. */ /* Origin: Kaveh Ghazi <ghazi@caip.rutgers.edu> */ /* { dg-do compile } */ /* { dg-options "-Wformat" } */ #include "format.h" /* Magic identifier must be set before the attribute is used. */ typedef struct locus locus; extern int gfc_warn (const char *, ...) __attribute__ ((__format__ (__gcc_gfc__, 1, 2))) __attribute__ ((__nonnull__)); void foo (unsigned int u, int i, char *s, unsigned long int ul, long int l, llong ll, locus *loc) { /* Acceptable C90 specifiers, flags and modifiers. */ gfc_warn ("%%"); gfc_warn ("%u%d%i%c%s%%", u, i, i, i, s); gfc_warn ("%lu%ld%li%%", ul, l, l); /* Extensions provided in gfc_warn. */ gfc_warn ("%C"); gfc_warn ("%L", loc); /* Various tests of bad argument types. */ gfc_warn ("%d", l); /* { dg-warning "format" "bad argument types" } */ gfc_warn ("%d", ll); /* { dg-warning "format" "bad argument types" } */ gfc_warn ("%s", &i); /* { dg-warning "format" "bad argument types" } */ gfc_warn ("%L", &i); /* { dg-warning "format" "bad argument types" } */ gfc_warn ("%C", i); /* { dg-warning "format" "too many arguments" } */ }