* elf/Makefile: Add rules to build and run tst-thrlock.
[platform/upstream/glibc.git] / elf / tst-thrlock.c
1 #include <dlfcn.h>
2 #include <pthread.h>
3 #include <stdio.h>
4 #include <stdlib.h>
5 #include <string.h>
6 #include <gnu/lib-names.h>
7
8 static void *
9 tf (void *arg)
10 {
11   void *h = dlopen (LIBM_SO, RTLD_LAZY);
12   if (h == NULL)
13     {
14       printf ("dlopen failed: %s\n", dlerror ());
15       exit (1);
16     }
17   if (dlsym (h, "sin") == NULL)
18     {
19       printf ("dlsym failed: %s\n", dlerror ());
20       exit (1);
21     }
22   if (dlclose (h) != 0)
23     {
24       printf ("dlclose failed: %s\n", dlerror ());
25       exit (1);
26     }
27   return NULL;
28 }
29
30 int
31 main (void)
32 {
33 #define N 10
34   pthread_t th[N];
35   for (int i = 0; i < N; ++i)
36     {
37       int e = pthread_create (&th[i], NULL, tf, NULL);
38       if (e != 0)
39         {
40           printf ("pthread_create failed with %d (%s)\n", e, strerror (e));
41           return 1;
42         }
43     }
44   for (int i = 0; i < N; ++i)
45     {
46       void *res;
47       int e = pthread_join (th[i], &res);
48       if (e != 0 || res != NULL)
49         {
50           puts ("thread failed");
51           return 1;
52         }
53     }
54   return 0;
55 }