|
111
|
1 /* Test for _Complex: in C99 only. A few basic tests. */
|
|
|
2 /* Origin: Joseph Myers <jsm28@cam.ac.uk> */
|
|
|
3 /* { dg-do compile } */
|
|
|
4 /* { dg-options "-std=iso9899:1999 -pedantic-errors" } */
|
|
|
5
|
|
|
6 /* Test _Complex allowed on floating types. */
|
|
|
7
|
|
|
8 float _Complex a;
|
|
|
9 _Complex float b;
|
|
|
10 double _Complex c;
|
|
|
11 _Complex double d;
|
|
|
12 long double _Complex e;
|
|
|
13 _Complex long double f;
|
|
|
14
|
|
|
15 /* Plain `_Complex' for complex double is a GNU extension. */
|
|
|
16 _Complex g; /* { dg-bogus "warning" "warning in place of error" } */
|
|
|
17 /* { dg-error "plain" "plain _Complex" { target *-*-* } .-1 } */
|
|
|
18
|
|
|
19 /* Complex integer types are GNU extensions. */
|
|
|
20 _Complex int h; /* { dg-bogus "warning" "warning in place of error" } */
|
|
|
21 /* { dg-error "complex integer" "_Complex int" { target *-*-* } .-1 } */
|
|
|
22 _Complex long i; /* { dg-bogus "warning" "warning in place of error" } */
|
|
|
23 /* { dg-error "complex integer" "_Complex long" { target *-*-* } .-1 } */
|
|
|
24
|
|
|
25 /* Use of ~ for complex conjugation is a GNU extension, but a constraint
|
|
|
26 violation (6.5.3.3p1) in C99.
|
|
|
27 */
|
|
|
28 _Complex double
|
|
|
29 foo (_Complex double z)
|
|
|
30 {
|
|
|
31 return ~z; /* { dg-bogus "warning" "warning in place of error" } */
|
|
|
32 /* { dg-error "complex conj" "~ for conjugation" { target *-*-* } .-1 } */
|
|
|
33 }
|
