OSDN Git Service

PR c/44051
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / c90-const-expr-3.c
index 9872843..46a0227 100644 (file)
@@ -1,4 +1,5 @@
 /* Test for constant expressions: broken optimization with const variables.  */
+/* Reference: ISO 9989:1990 6.5.15 */
 /* Origin: Joseph Myers <jsm28@cam.ac.uk> */
 /* { dg-do compile } */
 /* { dg-options "-std=iso9899:1990 -O2" } */
@@ -6,6 +7,7 @@
    to give the correct behavior to conforming programs.  */
 
 static const int ZERO = 0;
+static const double DZERO = 0;
 
 int *a;
 int b;
@@ -16,7 +18,7 @@ long *c;
 */
 #define ASSERT_NPC(n)  (b = *(1 ? a : (n)))
 /* Assertion that n is not a constant zero: so the conditional
-   expresions has type 'void *' instead of 'int *'.
+   expressions has type 'void *' instead of 'int *'.
 */
 #define ASSERT_NOT_NPC(n)      (c = (1 ? a : (void *)(__SIZE_TYPE__)(n)))
 
@@ -26,14 +28,19 @@ foo (void)
   ASSERT_NPC (0);
   ASSERT_NOT_NPC (ZERO);
   ASSERT_NPC (0 + 0);
-  ASSERT_NOT_NPC (ZERO + 0); /* { dg-bogus "incompatible" "bogus null pointer constant" { xfail *-*-* } } */
-  ASSERT_NOT_NPC (ZERO + ZERO); /* { dg-bogus "incompatible" "bogus null pointer constant" { xfail *-*-* } } */
+  ASSERT_NOT_NPC (ZERO + 0); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
+  ASSERT_NOT_NPC (ZERO + ZERO); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
   ASSERT_NPC (+0);
-  ASSERT_NOT_NPC (+ZERO); /* { dg-bogus "incompatible" "bogus null pointer constant" { xfail *-*-* } } */
+  ASSERT_NOT_NPC (+ZERO); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
   ASSERT_NPC (-0);
-  ASSERT_NOT_NPC (-ZERO); /* { dg-bogus "incompatible" "bogus null pointer constant" { xfail *-*-* } } */
+  ASSERT_NOT_NPC (-ZERO); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
   ASSERT_NPC ((char) 0);
   ASSERT_NOT_NPC ((char) ZERO);
   ASSERT_NPC ((int) 0);
   ASSERT_NOT_NPC ((int) ZERO);
+  ASSERT_NPC ((int) 0.0);
+  ASSERT_NOT_NPC ((int) DZERO);
+  ASSERT_NOT_NPC ((int) +0.0); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
+  ASSERT_NOT_NPC ((int) (0.0+0.0)); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
+  ASSERT_NOT_NPC ((int) (double)0.0); /* { dg-bogus "incompatible" "bogus null pointer constant" } */
 }