gold/testsuite/tls_test_c.c

   1 /* tls_test_c.c -- test TLS common symbol
   2
   3    Copyright 2008 Free Software Foundation, Inc.
   4    Written by Ian Lance Taylor <iant@google.com>
   5
   6    This file is part of gold.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  21    MA 02110-1301, USA.  */
  22
  23 /* The only way I know to get gcc to generate a TLS common symbol is
  24    to use a C file and an OpenMP directive.  */
  25
  26 #include <stdio.h>
  27 #include "config.h"
  28
  29 #define CHECK_EQ_OR_RETURN(var, expected)                               \
  30   do                                                                    \
  31     {                                                                   \
  32       if ((var) != (expected))                                          \
  33         {                                                               \
  34           printf(#var ": expected %d, found %d\n", expected, var);      \
  35           return 0;                                                     \
  36         }                                                               \
  37     }                                                                   \
  38   while (0)
  39
  40 #ifdef HAVE_OMP_SUPPORT
  41 int v7;
  42 #pragma omp threadprivate (v7)
  43 #endif
  44
  45 int
  46 t11()
  47 {
  48 #ifdef HAVE_OMP_SUPPORT
  49   CHECK_EQ_OR_RETURN(v7, 0);
  50   v7 = 70;
  51 #endif
  52   return 1;
  53 }
  54
  55 int
  56 t11_last()
  57 {
  58 #ifdef HAVE_OMP_SUPPORT
  59   CHECK_EQ_OR_RETURN(v7, 70);
  60 #endif
  61   return 1;
  62 }