none/tests/fdleak_fcntl.c

#include <unistd.h>
#include <stdio.h>
#include <fcntl.h>

int
main (int argc, char **argv)
{
   int s1;

   /*
    * Fedora Core 1's Perl opens /dev/pts/2 as fd 10.  Let's close it
    * now to get consistent results across different releases.
    */

   close(10);  close(4);

   s1 = open("/dev/null", O_RDONLY);
   if(fcntl(s1, F_DUPFD, s1) == -1) perror("fcntl");
   return 0;
}