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

From-SVN: r21975

gcc/testsuite/ChangeLog

+Tue Aug 25 19:42:13 1998  Jeffrey A Law  (law@cygnus.com)
+
+	* gcc.c-torture/compile/980825-1.c: New test.
+
 Mon Aug 24 16:38:52 1998  Jeffrey A Law  (law@cygnus.com)
 
 	* gcc.c-torture/compile/930326-1.x: Fix typo.

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

+typedef enum { FALSE, TRUE } boolean;
+enum _errorTypes { FATAL = 1, WARNING = 2, PERROR = 4 };
+typedef struct _optionValues {
+    struct _include {		 
+	boolean	classNames;	 
+	boolean	defines;	 
+	boolean	enumerators;	 
+    } include;
+} optionValues;
+extern optionValues	Option;
+static void applyTagInclusionList( list )
+    const char *const list;
+{
+    boolean mode = TRUE;	 
+    const char *p;
+    for (p = list  ;  *p != '\0'  ;  ++p)
+	switch (*p)
+	{
+	    case '=':	 
+		clearTagList();
+		mode = TRUE;
+		break;
+	    case '+':	mode = TRUE;	break;	 
+	    case '-':	mode = FALSE;	break;	 
+	    case 'c':	Option.include.classNames	= mode;		break;
+	    case 'd':	Option.include.defines		= mode;		break;
+	    case 'e':	Option.include.enumerators	= mode;		break;
+	    default: error(FATAL, "-i: Invalid tag option '%c'", *p);	break;
+	}
+}