diff options
Diffstat (limited to 'gcc/testsuite/gcc.apple/pascal-strings-3.c')
-rw-r--r-- | gcc/testsuite/gcc.apple/pascal-strings-3.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.apple/pascal-strings-3.c b/gcc/testsuite/gcc.apple/pascal-strings-3.c new file mode 100644 index 00000000000..477b94bbff2 --- /dev/null +++ b/gcc/testsuite/gcc.apple/pascal-strings-3.c @@ -0,0 +1,20 @@ +/* APPLE LOCAL file pascal strings */ +/* Ensure that there are no warnings or errors issued when a Pascal string is used to + initialize an array and the NUL terminator does not fit. */ +/* Author: Ziemowit Laski <zlaski@apple.com> */ + +/* { dg-do compile } */ +/* { dg-options "-fpascal-strings" } */ + +typedef unsigned char Str15[16]; + +Str15 ggg = "\p012345678901234"; +Str15 hhh = "\p0123456789012345"; /* { dg-warning "initializer.string for array of chars is too long" } */ + +int foo(void) +{ + Str15 sss = "\p012345678901234"; + Str15 ttt = "\p0123456789012345"; /* { dg-warning "initializer.string for array of chars is too long" } */ + + return 0; +} |