1 files changed, 21 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.apple/R4499790-2.c b/gcc/testsuite/gcc.apple/R4499790-2.c
new file mode 100644
index 00000000000..9c1d1b7db01
--- /dev/null
+++ b/gcc/testsuite/gcc.apple/R4499790-2.c
@@ -0,0 +1,21 @@
+/* Test case for radar 4499790 */
+/* { dg-do run } */
+/* { dg-options "-fpascal-strings" } */
+
+typedef __WCHAR_TYPE__ wchar_t;
+extern void abort (void);
+int main(int argc, char* argv[])
+{
+
+        char st[] = "\pfoo";            // pascal string
+        wchar_t wt[] = L"\pbar";        // pascal Unicode string
+
+        if (st[0] != 3)
+	  abort ();
+        if (wt[0] != 3)
+	  abort ();
+        
+        return 0;
+}
+
+