#include <dlfcn.h>
#include <stdio.h>
#include <mcheck.h>

int
main (void)
{
  int result = 0;
  void *p;

  mtrace ();

  /* First try to load an object which is a dependency.  This should
     succeed.  */
  p = dlopen ("testobj1.so", RTLD_LAZY | RTLD_NOLOAD);
  if (p == NULL)
    {
      printf ("cannot open \"testobj1.so\": %s\n", dlerror ());
      result = 1;
    }
  else
    {
      puts ("loading \"testobj1.so\" succeeded, OK");
      dlclose (p);
    }

  /* Now try loading an object which is not already loaded.  */
  if (dlopen ("testobj5.so", RTLD_LAZY | RTLD_NOLOAD) != NULL)
    {
      puts ("succeeded in loading \"testobj5.so\"");
      result = 1;
    }
  else
    {
      /* Load the object and run the same test again.  */
      puts ("\"testobj5.so\" wasn't loaded and RTLD_NOLOAD prevented it, OK");

      p = dlopen ("testobj5.so", RTLD_LAZY);

      if (p == NULL)
	{
	  printf ("cannot open \"testobj5.so\" without RTLD_NOLOAD: %s\n",
		  dlerror ());
	  result = 1;
	}
      else
	{
	  puts ("loading \"testobj5.so\" succeeded, OK");

	  void *q = dlopen ("testobj5.so", RTLD_LAZY | RTLD_NOLOAD);
	  if (q == NULL)
	    {
	      printf ("cannot open \"testobj5.so\": %s\n", dlerror ());
	      result = 1;
	    }
	  else
	    {
	      puts ("loading \"testobj5.so\" with RTLD_NOLOAD succeeded, OK");
	      dlclose (q);
	    }

	  if (dlclose (p) != 0)
	    {
	      printf ("cannot close \"testobj5.so\": %s\n", dlerror ());
	      result = 1;
	    }
	  else
	    puts ("closing \"testobj5.so\" succeeded, OK");
	}
    }

  return result;
}


extern int foo (int a);
int
foo (int a)
{
  return 42 + a;
}