/* PR c/89685 - ICE on attribute copy with a compound expression
   { dg-do compile }
   { dg-options "-Wall -Wno-unused-value -Wno-int-to-pointer-cast" } */

#define ATTR(...) __attribute__ ((__VA_ARGS__))

typedef struct ATTR (packed) A { ATTR (packed) unsigned bf: 1; } A;

typedef struct B
{
  struct A a;
  struct A *pa;
} B;

extern struct A a;
extern struct A *pa;
extern B b;
extern B ab[1];
extern B *pb;

typedef struct C
{
  ATTR (copy ((struct A *)0)) short m_pa_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy ((struct A *)(1, 0))) int m_pa_1_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy ((struct A *)(0, 1))) long m_pa_0_1;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */

  ATTR (copy (*(struct A *)0)) short m_xpa_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (*(struct A *)(1, 0))) int m_xpa_1_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (*(struct A *)(0, 1))) long m_xpa_0_1;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */

  ATTR (copy (((struct A *)0)[0])) short m_arpa_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (((struct A *)(1, 0))[0])) int m_arpa_1_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (((struct A *)(0, 1))[0])) long m_arpa_0_1;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */

  /* Also exercise COMPONENT_REF, ARRAY_REF, and INDIRECT_REF.  */
  ATTR (copy (a)) short m_ra;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (b.a)) int m_rb_a;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (b.pa)) long m_rb_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */

  ATTR (copy (&a)) short m_ara;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (&b.a)) int m_arb_a;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (*b.pa)) long m_xb_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (b.pa[0])) long m_arb_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */

  ATTR (copy (*pa)) short m_xpa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (pa[0])) short m_arpa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */

  ATTR (copy (ab[0].a)) int m_arab_a;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (ab[1].pa)) long m_arab_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (*ab[2].pa)) int m_xarab_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (ab[3].pa->bf)) unsigned int m_arab_pa_bf: 1;

  ATTR (copy (pb->a)) int m_pb_a;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (pb->pa)) long m_pb_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (*pb->pa)) int m_xpb_pa;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
  ATTR (copy (pb->pa->bf)) unsigned int m_pb_pa_bf: 1;

  ATTR (aligned (4), copy ((struct A *)(0))) short m_a4_pa_0;
  /* { dg-warning "attribute ignored" "" { target default_packed } .-1 } */
} C;


_Static_assert (__builtin_has_attribute (((C*)0)->m_pa_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_pa_1_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_pa_0_1, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_xpa_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_xpa_1_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_xpa_0_1, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_arpa_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arpa_1_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arpa_0_1, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_ra, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_rb_a, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_rb_pa, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_ara, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arb_a, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_xb_pa, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arb_pa, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_xpa, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arpa, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_arab_a, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arab_pa, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_xarab_pa, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_arab_pa_bf, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_pb_a, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_pb_pa, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_xpb_pa, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_pb_pa_bf, packed));

_Static_assert (__builtin_has_attribute (((C*)0)->m_a4_pa_0, packed));
_Static_assert (__builtin_has_attribute (((C*)0)->m_a4_pa_0, aligned));
_Static_assert (__alignof__ (((C*)0)->m_a4_pa_0) == 4);