Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / other / ucnid-1.C
blobf9dd9fb97a891e09e323d0636c411be752cf58a9
1 /* { dg-do run } */
2 /* { dg-options "" } */
3 /* { dg-xfail-if "" { powerpc-ibm-aix* } } */
4 /* { dg-skip-if "" { ! ucn } } */
5 /* { dg-skip-if "requires hosted libstdc++ for cstdlib abort" { ! hostedlib } } */
6 #include <cstdlib>
8 int \u00C0(void) { return 1; }
9 int \u00C1(void) { return 2; }
10 int \U000000C2(void) { return 3; }
11 int wh\u00ff(void) { return 4; }
12 int a\u00c4b\u0441\U000003b4e(void) { return 5; }
14 int main (void)
16   
17   if (\u00C0() != 1)
18     abort ();
19   if (\u00c1() != 2)
20     abort ();
21   if (\u00C2() != 3)
22     abort ();
23   if (wh\u00ff() != 4)
24     abort ();
25   if (a\u00c4b\u0441\U000003b4e() != 5)
26     abort ();
27   
28   return 0;