1  /* { dg-do run } */
       2  /* { dg-options "-O2" } */
       3  /* { dg-require-effective-target tls_runtime } */
       4  /* { dg-add-options tls } */
       5  
       6  __thread double thrtest[81];
       7  int main ()
       8  {
       9    double *p, *e;
      10    e = &thrtest[81];
      11    for (p = &thrtest[0]; p < e; ++p)
      12      *p = 1.0;
      13    return 0;
      14  }