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