gcc/testsuite/gdc.test/runnable/imports/tlsa.d

   1 module imports.tlsa;
   2
   3 import core.stdc.stdio;
   4
   5 int foo()()
   6 {
   7     static int z = 7;
   8     return ++z;
   9 }
  10
  11 /*************************************/
  12
  13
  14 int abc4(T)(T t)
  15 {
  16     static T qqq;               // TLS comdef
  17     static       T rrr; // comdef
  18     static T sss = 8;   // TLS comdat
  19     static       T ttt = 9;     // comdat
  20     printf("qqq = %d, rrr = %d, sss = %d, ttt = %d\n", qqq, rrr, sss, ttt);
  21     qqq += 2;
  22     rrr += 3;
  23     sss += 4;
  24     ttt += 5;
  25     return t + qqq + rrr + sss + ttt;
  26 }
  27
  28 int bar4()
  29 {
  30     return abc4(4);
  31 }
  32
  33 /*************************************/
  34
  35