1/* This testcase is part of GDB, the GNU debugger.
2
3   Copyright 2004, 2007 Free Software Foundation, Inc.
4
5   This program is free software; you can redistribute it and/or modify
6   it under the terms of the GNU General Public License as published by
7   the Free Software Foundation; either version 3 of the License, or
8   (at your option) any later version.
9
10   This program is distributed in the hope that it will be useful,
11   but WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13   GNU General Public License for more details.
14
15   You should have received a copy of the GNU General Public License
16   along with this program.  If not, see <http://www.gnu.org/licenses/>. */
17
18#include <stdio.h>
19#include <stdlib.h>
20
21#ifdef __WIN32__
22#include <windows.h>
23#define dlopen(name, mode) LoadLibrary (TEXT (name))
24#ifdef _WIN32_WCE
25# define dlsym(handle, func) GetProcAddress (handle, TEXT (func))
26#else
27# define dlsym(handle, func) GetProcAddress (handle, func)
28#endif
29#define dlclose(handle) FreeLibrary (handle)
30#define dlerror() "error %d occurred", GetLastError ()
31#else
32#include <dlfcn.h>
33#endif
34
35int k = 0;
36
37int main()
38{
39  void *handle;
40  int (*unloadshr) (int);
41  int y;
42  const char *msg;
43
44  handle = dlopen (SHLIB_NAME, RTLD_LAZY);
45
46  if (!handle)
47    {
48      fprintf (stderr, dlerror ());
49      exit (1);
50    }
51
52  unloadshr = (int (*)(int))dlsym (handle, "shrfunc1");
53
54  if (!unloadshr)
55    {
56      fprintf (stderr, dlerror ());
57      exit (1);
58    }
59
60  y = (*unloadshr)(3);
61
62  printf ("y is %d\n", y);
63
64  dlclose (handle);
65
66  return 0;
67}
68