/* Check that __pthread_destroy_specific works correctly if it has to skip
   unused slots.
   Copyright (C) 2000-2024 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library;  if not, see
   <https://www.gnu.org/licenses/>.  */

#define _GNU_SOURCE

#include <error.h>
#include <pthread.h>
#include <stdio.h>


#define N_k 42

static volatile int v;

static void
d (void *x)
{
  int *i = (int *) x;

  if (v != *i)
    error (1, 0, "FAILED %d %d", v, *i);
  v += 2;

  printf ("%s %d\n", __FUNCTION__, *i);
  fflush (stdout);
}

static void *
test (void *x)
{
  pthread_key_t k[N_k];
  static int k_v[N_k];

  int err, i;

  for (i = 0; i < N_k; i += 1)
    {
      err = pthread_key_create (&k[i], &d);
      if (err != 0)
	error (1, err, "pthread_key_create %d", i);
    }

  for (i = 0; i < N_k; i += 1)
    {
      k_v[i] = i;
      err = pthread_setspecific (k[i], &k_v[i]);
      if (err != 0)
	error (1, err, "pthread_setspecific %d", i);
    }

  /* Delete every even key.  */
  for (i = 0; i < N_k; i += 2)
    {
      err = pthread_key_delete (k[i]);
      if (err != 0)
	error (1, err, "pthread_key_delete %d", i);
    }

  v = 1;
  pthread_exit (NULL);

  return NULL;
}


int
main (void)
{
  pthread_t tid;
  int err;

  err = pthread_create (&tid, 0, test, NULL);
  if (err != 0)
    error (1, err, "pthread_create");

  err = pthread_join (tid, NULL);
  if (err)
    error (1, err, "pthread_join");

  if (v != N_k + 1)
    error (1, 0, "FAILED END %d %d", v, N_k + 1);

  return 0;
}
