Fix some warnings in door.c
[kopensolaris-gnu/glibc.git] / dlfcn / tstcxaatexit.c
1 /* Copyright (C) 2001 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3
4    The GNU C Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Lesser General Public
6    License as published by the Free Software Foundation; either
7    version 2.1 of the License, or (at your option) any later version.
8
9    The GNU C Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Lesser General Public License for more details.
13
14    You should have received a copy of the GNU Lesser General Public
15    License along with the GNU C Library; if not, write to the Free
16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17    02111-1307 USA.  */
18
19 #include <dlfcn.h>
20 #include <stdio.h>
21 #include <stdlib.h>
22
23 extern void *__dso_handle __attribute__ ((__weak__));
24
25 int
26 main (void)
27 {
28   const char fname[] = "modcxaatexit.so";
29   void *h;
30   void (*fp) (void *);
31   int v = 0;
32
33   if (&__dso_handle == NULL)
34     {
35       puts ("__dso_handle not available, cannot perform the test");
36       exit (0);
37     }
38
39   h = dlopen (fname, RTLD_LAZY);
40   if (h == NULL)
41     {
42       printf ("cannot open \"%s\": %s\n", fname, dlerror ());
43       exit (1);
44     }
45
46   fp = dlsym (h, "bar");
47   if (fp == NULL)
48     {
49       printf ("cannot find \"bar\": %s\n", dlerror ());
50       exit (1);
51     }
52
53   fp (&v);
54
55   if (dlclose (h) != 0)
56     {
57       printf ("cannot close \"%s\": %s\n", fname, dlerror ());
58       exit (1);
59     }
60
61   if (v != 1)
62     {
63       puts ("module unload didn't change `v'");
64       exit (1);
65     }
66
67   puts ("finishing now");
68
69   return 0;
70 }