Mercurial > hg > CbC > CbC_gcc
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; }