1  /* { dg-do compile } */
       2  /* { dg-options "-std=c89 -pedantic-errors" } */
       3  /* PR 23155
       4     We should get two error messages, one about union cast
       5     and the other about array access for non lvalues.  */
       6  
       7  
       8  union vx {short f[8]; int v;};
       9  int vec;
      10  
      11  void
      12  foo5 (int vec)
      13  {
      14    ((union vx) vec).f[5] = 1; /* { dg-error "(forbids subscripting)|(forbids casts to union type)" } */
      15  }