/* Test case for radar 4499790 */ | |
/* { dg-do run } */ | |
/* { dg-options "-fpascal-strings -fshort-wchar" } */ | |
extern void abort (void); | |
typedef unsigned short UInt16; | |
typedef UInt16 UniChar; | |
int main(int argc, char* argv[]) | |
{ | |
char st[] = "\pfoo"; // pascal string | |
UniChar wt[] = L"\pbar"; // pascal Unicode string | |
if (st[0] != 3) | |
abort (); | |
if (wt[0] != 3) | |
abort (); | |
return 0; | |
} | |