aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey A Law <law@cygnus.com>1998-08-25 18:43:10 +0000
committerJeff Law <law@gcc.gnu.org>1998-08-25 12:43:10 -0600
commit38f76c25a93c43e508de67a0c620a57f1bce2eee (patch)
tree4dd433601f34026d90f4cb83cfdb5d663b6927bb
parenta5d1cd099af2649bc92ba666eef17bbe68b03653 (diff)
downloadgcc-38f76c25a93c43e508de67a0c620a57f1bce2eee.zip
gcc-38f76c25a93c43e508de67a0c620a57f1bce2eee.tar.gz
gcc-38f76c25a93c43e508de67a0c620a57f1bce2eee.tar.bz2
* gcc.c-torture/compile/980825-1.c: New test.
From-SVN: r21975
-rw-r--r--gcc/testsuite/ChangeLog4
-rw-r--r--gcc/testsuite/gcc.c-torture/compile/980825-1.c30
2 files changed, 34 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 810e3b5..5d0537f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.
diff --git a/gcc/testsuite/gcc.c-torture/compile/980825-1.c b/gcc/testsuite/gcc.c-torture/compile/980825-1.c
new file mode 100644
index 0000000..34e35bf
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/980825-1.c
@@ -0,0 +1,30 @@
+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;
+ }
+}