gcc/testsuite/gcc.dg/fltconst-double-pedantic-2.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-std=c99 -pedantic-errors" } */
   3
   4 double a = 1.d;         /* { dg-error "double constant" } */
   5 double b = 1.D;         /* { dg-error "double constant" } */
   6 double c = 1.1e+2d;     /* { dg-error "double constant" } */
   7
   8 double d = 1.di;        /* { dg-error "imaginary constants" } */
   9 double e = 1.dj;        /* { dg-error "imaginary constants" } */
  10 double f = 1.id;        /* { dg-error "imaginary constants" } */
  11 double g = 1.jd;        /* { dg-error "imaginary constants" } */
  12
  13 double h = 0x1.5p1d;    /* { dg-error "double constant" } */