From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gcc.c-torture/compile/20010408-1.c | 77 ++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 gcc/testsuite/gcc.c-torture/compile/20010408-1.c

(limited to 'gcc/testsuite/gcc.c-torture/compile/20010408-1.c')

diff --git a/gcc/testsuite/gcc.c-torture/compile/20010408-1.c b/gcc/testsuite/gcc.c-torture/compile/20010408-1.c
new file mode 100644
index 000000000..9aa3597a2
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/20010408-1.c
@@ -0,0 +1,77 @@
+extern struct win *windows, *wtab[];
+struct win
+{
+  struct win *w_next;
+};
+
+struct auser;
+
+struct comm
+{
+  char *name;
+  int flags;
+};
+
+extern struct comm comms[];
+
+extern int WindowByNoN (char *);
+extern int FindCommnr (char *);
+extern int AclSetPermCmd (struct auser *, char *, struct comm *);
+extern int AclSetPermWin (struct auser *, struct auser *, char *, struct win *);
+
+
+int
+  AclSetPerm(uu, u, mode, s)
+    struct auser *uu, *u;
+char *mode, *s;
+{
+  struct win *w;
+  int i;
+  char *p, ch;
+
+  do 
+    {
+    }
+  while (0);
+
+  while (*s)
+    {
+      switch (*s)
+	{  
+	case '*':
+	  return AclSetPerm(uu, u, mode, "#?");
+	case '#':
+	  if (uu)
+	    AclSetPermWin(uu, u, mode, (struct win *)1);
+	  else
+	    for (w = windows; w; w = w->w_next)
+	      AclSetPermWin((struct auser *)0, u, mode, w);
+	  s++;
+	  break;
+	case '?':
+	  if (uu)
+	    AclSetPermWin(uu, u, mode, (struct win *)0);
+	  else
+	    for (i = 0; i <= 174; i++)
+	      AclSetPermCmd(u, mode, &comms[i]);
+	  s++;
+	  break;
+	default:
+	  for (p = s; *p && *p != ' ' && *p != '\t' && *p != ','; p++)
+	    ;
+	  if ((ch = *p))
+	    *p++ = '\0';
+	  if ((i = FindCommnr(s)) != -1)
+	    AclSetPermCmd(u, mode, &comms[i]);
+	  else if (((i = WindowByNoN(s)) >= 0) && wtab[i])
+	    AclSetPermWin((struct auser *)0, u, mode, wtab[i]);
+	  else
+	    return -1;
+	  if (ch)
+	    p[-1] = ch;
+	  s = p;
+	}
+    }
+
+  return 0;
+}
-- 
cgit v1.2.3