gcc/testsuite/objc.dg/torture/tls/thr-init-3.m

   1 /* { dg-do run } */
   2 /* { dg-require-effective-target tls } */
   3 /* { dg-add-options tls } */
   4 /* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
   5 /* { dg-additional-sources "../../../objc-obj-c++-shared/Object1.m" } */
   6
   7 #include "../../../objc-obj-c++-shared/Object1.h"
   8 extern void _exit(int);
   9
  10 @interface tsObj: Object {
  11   int ai ;
  12 }
  13
  14 - (int) fa:(int) n;
  15
  16 @end
  17
  18 @implementation tsObj
  19
  20 - (int) fa:(int) n
  21 {
  22 static __thread int as = 3;
  23   as += n ;
  24   return as ;
  25 }
  26
  27 @end
  28
  29 int main (int ac, char *av[])
  30 {
  31   int a ;
  32   tsObj *to = [tsObj new];
  33
  34   a = [to fa:5];
  35   if ( a != 8 )
  36     _exit (-(__LINE__)) ;
  37
  38   return 0;
  39 }