/* 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; }