* c-typeck.c (build_unary_op): If pedantic, pedwarn for increment

	and decrement of complex types.

testsuite:
	* gcc.dg/c99-complex-2.c: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@37164 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index fcc65c8..7c617b8 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-31  Joseph S. Myers  <jsm28@cam.ac.uk>
+
+       * c-typeck.c (build_unary_op): If pedantic, pedwarn for increment
+       and decrement of complex types.
+
 2000-10-31  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * builtins.c (expand_builtin_fputs): When deleting NOP calls to

diff --git a/gcc/c-typeck.c b/gcc/c-typeck.c
index a118619..acc2840 100644 (file)
--- a/gcc/c-typeck.c
+++ b/gcc/c-typeck.c
@@ -2909,6 +2909,9 @@ build_unary_op (code, xarg, noconvert)
        {
          tree real, imag;
 
+         if (pedantic)
+           pedwarn ("ISO C does not support `++' and `--' on complex types");
+
          arg = stabilize_reference (arg);
          real = build_unary_op (REALPART_EXPR, arg, 1);
          imag = build_unary_op (IMAGPART_EXPR, arg, 1);

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6097ca2..0d714d8 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-31  Joseph S. Myers  <jsm28@cam.ac.uk>
+
+       * gcc.dg/c99-complex-2.c: New test.
+
 2000-10-31  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * gcc.c-torture/execute/stdio-opt-1.c: New test.

diff --git a/gcc/testsuite/gcc.dg/c99-complex-2.c b/gcc/testsuite/gcc.dg/c99-complex-2.c
new file mode 100644 (file)
index 0000000..078e92a
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/c99-complex-2.c
@@ -0,0 +1,22 @@
+/* Test for _Complex: in C99 only.  Test for increment and decrement.  */
+/* Origin: Joseph Myers <jsm28@cam.ac.uk> */
+/* { dg-do compile } */
+/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */
+
+/* Use of ++ and -- on complex types (both prefix and postfix) is a
+   C99 constraint violation (6.5.2.4p1, 6.5.3.1p1).
+*/
+
+_Complex double
+foo (_Complex double z)
+{
+  z++; /* { dg-bogus "warning" "warning in place of error" } */
+  /* { dg-error "complex" "postinc" { target *-*-* } 13 } */
+  ++z; /* { dg-bogus "warning" "warning in place of error" } */
+  /* { dg-error "complex" "preinc" { target *-*-* } 15 } */
+  z--; /* { dg-bogus "warning" "warning in place of error" } */
+  /* { dg-error "complex" "postdec" { target *-*-* } 17 } */
+  --z; /* { dg-bogus "warning" "warning in place of error" } */
+  /* { dg-error "complex" "predec" { target *-*-* } 19 } */
+  return z;
+}