gcc/testsuite/gcc.dg/c99-const-expr-11.c

   1 /* Test for constant expressions: cases involving VLAs.  */
   2 /* Origin: Joseph Myers <joseph@codesourcery.com> */
   3 /* { dg-do compile } */
   4 /* { dg-options "-std=iso9899:1999 -pedantic-errors" } */
   5
   6 /* It appears address constants may contain casts to variably modified
   7    types.  Whether they should be permitted was discussed in
   8    <http://groups.google.com/group/comp.std.c/msg/923eee5ab690fd98>
   9    <LV7g2Vy3ARF$Ew9Q@romana.davros.org>; since static pointers to VLAs
  10    are definitely permitted within functions and may be initialized
  11    and such initialization involves implicit conversion to a variably
  12    modified type, allowing explicit casts seems appropriate.  Thus,
  13    GCC allows them as long as the "evaluated" size expressions do not
  14    contain the various operators not permitted to be evaluated in a
  15    constant expression, and as long as the result is genuinely
  16    constant (meaning that pointer arithmetic using the size of the VLA
  17    is generally not permitted).  */
  18
  19 static int sa[100];
  20
  21 volatile int nv;
  22
  23 int
  24 f (int m, int n)
  25 {
  26   static int (*a1)[n] = &sa;
  27   static int (*a2)[n] = (int (*)[n])sa;
  28   static int (*a3)[n] = (int (*)[(int){n}])sa;
  29   static int (*a4)[n] = (int (*)[(int){m++}])sa; /* { dg-error "constant" } */
  30   static int (*a5)[n] = (int (*)[(int){++m}])sa; /* { dg-error "constant" } */
  31   static int (*a6)[n] = (int (*)[(int){m--}])sa; /* { dg-error "constant" } */
  32   static int (*a7)[n] = (int (*)[(int){--m}])sa; /* { dg-error "constant" } */
  33   static int (*a8)[n] = (int (*)[(m=n)])sa; /* { dg-error "constant" } */
  34   static int (*a9)[n] = (int (*)[(m+=n)])sa; /* { dg-error "constant" } */
  35   static int (*a10)[n] = (int (*)[f(m,n)])sa; /* { dg-error "constant" } */
  36   static int (*a11)[n] = (int (*)[(m,n)])sa; /* { dg-error "constant" } */
  37   static int (*a12)[n] = (int (*)[sizeof(int[n])])sa;
  38   static int (*a13)[n] = (int (*)[sizeof(int[m++])])sa; /* { dg-error "constant" } */
  39   static int (*a14)[n] = (int (*)[sizeof(*a1)])sa;
  40   static int (*a15)[n] = (int (*)[sizeof(*(int (*)[n])sa)])sa;
  41   static int (*a16)[n] = (int (*)[sizeof(*(int (*)[m++])sa)])sa; /* { dg-error "constant" } */
  42   static int (*a17)[n] = (int (*)[nv])sa;
  43   typedef int (*vmt)[m++];
  44   static int (*a18)[n] = (vmt)sa;
  45   return n;
  46 }