From 50011802c0fbf772e46e2fa4ee1faca85b9b06e9 Mon Sep 17 00:00:00 2001
From: Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
Date: Wed, 25 Jul 2001 11:28:50 +0000
Subject: [PATCH] 20010724-1.c: New file.

	* gcc.c-torture/execute/20010724-1.c: New file.
	* gcc.c-torture/execute/20010724-1.x: New file.

From-SVN: r44346
---
 gcc/testsuite/ChangeLog                       |  5 ++
 .../gcc.c-torture/execute/20010724-1.c        | 59 +++++++++++++++++++
 .../gcc.c-torture/execute/20010724-1.x        |  3 +
 3 files changed, 67 insertions(+)
 create mode 100644 gcc/testsuite/gcc.c-torture/execute/20010724-1.c
 create mode 100644 gcc/testsuite/gcc.c-torture/execute/20010724-1.x

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2baa8c043a2..5a6aea2a3ba 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-25  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+	* gcc.c-torture/execute/20010724-1.c: New file.
+	* gcc.c-torture/execute/20010724-1.x: New file.
+
 2001-07-25  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* g++.old-deja/g++.other/cond7.C: New test.
diff --git a/gcc/testsuite/gcc.c-torture/execute/20010724-1.c b/gcc/testsuite/gcc.c-torture/execute/20010724-1.c
new file mode 100644
index 00000000000..8ff7d0f44a0
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20010724-1.c
@@ -0,0 +1,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;
+}
diff --git a/gcc/testsuite/gcc.c-torture/execute/20010724-1.x b/gcc/testsuite/gcc.c-torture/execute/20010724-1.x
new file mode 100644
index 00000000000..2f2f05634c4
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20010724-1.x
@@ -0,0 +1,3 @@
+# This test is only needed on IRIX 6
+if { ! [istarget "mips*-sgi-irix6*"] } { return 1 }
+return 0
-- 
2.30.2