gnu/dist/gcc4/gcc/testsuite/gcc.dg/tls/struct-1.c

   1 /* This testcase ICEd on IA-32 because the backend was inconsistent whether
   2    to allow addends for @dtpoff relocs or not.  */
   3 /* { dg-do compile } */
   4 /* { dg-options "-O2 -fpic" } */
   5 /* { dg-require-effective-target tls } */
   6
   7 struct S {
   8   int s0, s1, s2, s3;
   9 };
  10 static __thread struct S x;
  11 extern void abort (void);
  12 extern void exit (int);
  13
  14 void
  15 foo (struct S *s)
  16 {
  17   s->s2 = 231;
  18 }
  19
  20 void
  21 bar (void)
  22 {
  23   if (x.s0 == 231 || x.s2 != 231)
  24     abort ();
  25 }
  26
  27 int
  28 main ()
  29 {
  30   foo (&x);
  31   bar ();
  32   exit (0);
  33 }