summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/execute/20010724-1.c
blob: 8ff7d0f44a0ed7c0a2fcc68ed2ee2fde3bc218bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
/* Verify that the workarounds in config/mips/irix6-libc-compat.c are still
   needed.  */

/* IRIX 6, unlike other Unix systems, defines union semun in <sys/sem.h>.
   Inhibit this definition to be able to run this test on other platforms.  */
#define _XOPEN_SOURCE

#include <sys/types.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <sys/ipc.h>
#include <sys/sem.h>

union semun {
  int val;
  struct semid_ds *buf;
  ushort_t *array;
};

int
main (void)
{
  struct in_addr ia;
  int semid;
  union semun su;

  ia.s_addr = INADDR_BROADCAST;

  if (strcmp (inet_ntoa (ia), "255.255.255.255") != 0)
    abort ();

  ia.s_addr = INADDR_LOOPBACK;

  if (inet_lnaof (ia) != 1)
    abort ();

  if (inet_netof (ia) != IN_LOOPBACKNET)
    abort ();

  ia = inet_makeaddr (IN_LOOPBACKNET, 1);
  if (ia.s_addr != INADDR_LOOPBACK)
    abort ();

  if ((semid = semget (IPC_PRIVATE, 1, IPC_CREAT | IPC_EXCL | SEM_R | SEM_A)) < 0)
    abort ();

  su.val = 10;

  if (semctl (semid, 0, SETVAL, su) != 0)
    abort ();

  if (semctl (semid, 0, GETVAL) != 10)
    abort ();

  if (semctl (semid, 0, IPC_RMID) != 0)
    abort ();

  return 0;
}