This commit was manufactured by cvs2svn to create tagapple/gcc-1751

'apple-gcc-1751'.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/tags/apple-gcc-1751@81762 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 45 insertions, 0 deletions

diff --git a/gcc/testsuite/gcc.apple/pascal-strings-2.c b/gcc/testsuite/gcc.apple/pascal-strings-2.c
new file mode 100644
index 00000000000..6b617fa32c5
--- /dev/null
+++ b/gcc/testsuite/gcc.apple/pascal-strings-2.c
@@ -0,0 +1,45 @@
+/* APPLE LOCAL file pascal strings */
+/* Negative C test cases.  */
+/* Origin: Ziemowit Laski <zlaski@apple.com> */
+/* { dg-do compile } */
+/* { dg-options "-std=iso9899:1999 -Wwrite-strings -fpascal-strings" } */
+
+typedef __WCHAR_TYPE__ wchar_t;
+
+const wchar_t *pascalStr1 = L"\pHi!"; /* { dg-warning "unknown escape sequence" } */
+const wchar_t *pascalStr2 = L"Bye\p!"; /* { dg-warning "unknown escape sequence" } */
+
+const wchar_t *initErr0 = "\pHi";   /* { dg-warning "incompatible pointer type" } */
+const wchar_t initErr0a[] = "\pHi";  /* { dg-error "initialized from non-wide string" } */
+const wchar_t *initErr1 = "Bye";   /* { dg-warning "incompatible pointer type" } */
+const wchar_t initErr1a[] = "Bye";   /* { dg-error "initialized from non-wide string" } */
+
+const char *initErr2 = L"Hi";   /* { dg-warning "incompatible pointer type" } */
+const char initErr2a[] = L"Hi";  /* { dg-error "initialized from wide string" } */
+const signed char *initErr3 = L"Hi";  /* { dg-warning "incompatible pointer type" } */
+const signed char initErr3a[] = L"Hi";  /* { dg-error "initialized from wide string" } */
+const unsigned char *initErr4 = L"Hi";  /* { dg-warning "incompatible pointer type" } */
+const unsigned char initErr4a[] = L"Hi"; /* { dg-error "initialized from wide string" } */
+
+const char *pascalStr3 = "Hello\p, World!"; /* { dg-warning "unknown escape sequence" } */
+
+const char *concat2 = "Hi" "\pthere"; /* { dg-warning "unknown escape sequence" } */
+const char *concat3 = "Hi" "there\p"; /* { dg-warning "unknown escape sequence" } */
+
+const char *s2 = "\pGoodbye!";   /* ok */
+unsigned char *s3 = "\pHi!";     /* { dg-warning "initialization discards qualifiers" } */
+char *s4 = "\pHi";               /* { dg-warning "initialization discards qualifiers" } */
+signed char *s5 = "\pHi";        /* { dg-warning "initialization discards qualifiers" } */
+const signed char *s6 = "\pHi";  /* ok */
+
+/* the maximum length of a Pascal literal is 255. */
+const unsigned char *almostTooLong =
+  "\p12345678901234567890123456789012345678901234567890123456789012345678901234567890"
+    "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
+    "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
+    "123456789012345";  /* ok */
+const unsigned char *definitelyTooLong =
+  "\p12345678901234567890123456789012345678901234567890123456789012345678901234567890"
+    "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
+    "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
+    "1234567890123456";  /* { dg-error "too long" } */