* gcc.c-torture/compile/980616-1.c: New test.

From-SVN: r21760

gcc/testsuite/ChangeLog

 Sun Aug 16 01:29:19 1998  Jeffrey A Law  (law@cygnus.com)
 
+	* gcc.c-torture/compile/980816-1.c: New test.
+
 	* gcc.dg/980816-1.c: New test.
 
 1998-08-01  Dave Love  <d.love@dl.ac.uk>

gcc/testsuite/gcc.c-torture/compile/980816-1.c

+typedef unsigned int size_t;
+typedef void *XtPointer;
+
+typedef struct _WidgetRec *Widget;
+typedef struct _WidgetClassRec *WidgetClass;
+
+extern WidgetClass commandWidgetClass;
+
+typedef void (*XtCallbackProc)(
+    Widget 		 ,
+    XtPointer 		 ,	 
+    XtPointer 		 	 
+);
+
+extern const  char XtStrings[];
+
+
+typedef struct						 
+{
+	char			*Name,			 
+				*Label;			 
+	XtCallbackProc		Callback;		 
+	XtPointer		ClientData;		 
+	Widget			W;				 
+} DialogButtonType, *DialogButtonTypePtr;
+
+ 
+Widget AddButtons(Widget Parent, Widget Top,
+	DialogButtonTypePtr Buttons, size_t Count)
+{
+	int		i;
+
+	for (i = 0; i < Count; i++)
+	{
+		if (!Buttons[i].Label)
+			continue;
+		Buttons[i].W  = XtVaCreateManagedWidget(Buttons[i].Name,
+			commandWidgetClass,
+			Parent,
+			((char*)&XtStrings[429]) , Buttons[i].Label,
+			"fromHoriz" , i ? Buttons[i-1].W : ((void *)0) ,
+			"fromVert" , Top,
+			"resizable" , 1 ,
+			((void *)0) );
+
+		XtAddCallback(((char*)&XtStrings[136]),
+				 Buttons[i].Callback, Buttons[i].ClientData);
+	}
+	return(Buttons[Count-1].W);
+}
+