diff options
| author | Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> | 2001-07-25 11:28:50 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2001-07-25 11:28:50 +0000 |
| commit | 50011802c0fbf772e46e2fa4ee1faca85b9b06e9 (patch) | |
| tree | 92a0277fc0a9845f98c0821bb6289ea047b15ab1 | |
| parent | 402604293366e07b85db805930f1bcf1f0bac947 (diff) | |
| download | gcc-50011802c0fbf772e46e2fa4ee1faca85b9b06e9.zip gcc-50011802c0fbf772e46e2fa4ee1faca85b9b06e9.tar.gz gcc-50011802c0fbf772e46e2fa4ee1faca85b9b06e9.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.c-torture/execute/20010724-1.c | 59 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.c-torture/execute/20010724-1.x | 3 |
3 files changed, 67 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2baa8c0..5a6aea2 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 0000000..8ff7d0f --- /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 0000000..2f2f056 --- /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 |