diff options
Diffstat (limited to 'gcc/testsuite/gcc.dg/builtins-28.c')
| -rw-r--r-- | gcc/testsuite/gcc.dg/builtins-28.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/builtins-28.c b/gcc/testsuite/gcc.dg/builtins-28.c new file mode 100644 index 000000000..bd76d6b97 --- /dev/null +++ b/gcc/testsuite/gcc.dg/builtins-28.c @@ -0,0 +1,27 @@ +/* Test that creal and cimag built-in functions do not return lvalues. */ +/* Origin: Joseph Myers <jsm@polyomino.org.uk> */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +extern float crealf (float _Complex); +extern double creal (double _Complex); +extern long double creall (long double _Complex); + +extern float cimagf (float _Complex); +extern double cimag (double _Complex); +extern long double cimagl (long double _Complex); + +float _Complex fc; +double _Complex dc; +long double _Complex ldc; + +void +foo (void) +{ + crealf (fc) = 0; /* { dg-error "lvalue" "crealf not lvalue" } */ + cimagf (fc) = 0; /* { dg-error "lvalue" "cimagf not lvalue" } */ + creal (dc) = 0; /* { dg-error "lvalue" "creal not lvalue" } */ + cimag (dc) = 0; /* { dg-error "lvalue" "cimag not lvalue" } */ + creall (ldc) = 0; /* { dg-error "lvalue" "creall not lvalue" } */ + cimagl (ldc) = 0; /* { dg-error "lvalue" "cimagl not lvalue" } */ +} |