view gcc/testsuite/gcc.dg/pr19633-1.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* { dg-do run } */
/* { dg-options "-O2" } */

extern void abort (void);
extern void link_error (void);

struct S
{
  int w, x, y, z;
};

struct T
{
  int r;
  struct S s;
};

struct S bar (struct S x, struct S *y)
{
  y->w = 4;
  return *y;
}

void
foo (int a, struct T b)
{
  struct S x;
  struct S *c = &x;
  if (a)
    c = &b.s;
  b.s.w = 3;
  /* This call should be marked as clobbering 'x' and 'b'.  */
  *c = bar (*c, c);
  if (b.s.w == 3)
    abort ();
}

float Y;

struct S bar1 (struct S x, struct S y)
{
  Y = 4;
  return x;
}

void
foo1 (int a, struct T b)
{
  struct S x;
  struct S *c = &x;
  float z, *k = &z;
  if (a)
    c = &b.s;
  b.s.w = 3;
  /* This call should NOT be marked as clobbering 'x' and 'b'.  */
  x = bar1 (*c, *c);
  if (b.s.w != 3)
    link_error ();
}

int main ()
{
  struct T b;
  foo (3, b);
  foo1 (3, b);
  return 0;
}