20000510-1.S: Rename assembler.S.

        * gcc.dg/cpp/20000510-1.S: Rename assembler.S.  Add test
        that we continue to preprocess after an unknown directive.
	* gcc.dg/cpp/tr-str.c: Run-time test for traditional
	stringification.

From-SVN: r36577

diff --git a/gcc/testsuite/gcc.dg/cpp/20000510-1.S b/gcc/testsuite/gcc.dg/cpp/20000510-1.S
deleted file mode 100644 (file)
index 7d6508b..0000000
--- a/gcc/testsuite/gcc.dg/cpp/20000510-1.S
+++ /dev/null
@@ -1,20 +0,0 @@
-/* Regression test - in assembly language, # may have some significance
-   other than 'stringize macro argument' and therefore must be preserved
-   in the output, and should not be warned about.  */
-/* { dg-do preprocess } */
-
-#define foo() mov r0, #5  /* { dg-bogus "not followed" "spurious warning" } */
-
-entry:
-       foo()
-
-/*
-   { dg-final { if ![file exists 20000510-1.i] { return }      } }
-   { dg-final { set tmp [grep 20000510-1.i # line]             } }
-   { dg-final { if {[string length $tmp] > 0} \{               } }
-   { dg-final {     pass "20000510-1.S: # preservation"                } }
-   { dg-final { \} else \{                                     } }
-   { dg-final {     fail "20000510-1.S: # preservation"                } }
-   { dg-final { \}                                             } }
-*/
-

diff --git a/gcc/testsuite/gcc.dg/cpp/assembler.S b/gcc/testsuite/gcc.dg/cpp/assembler.S
new file mode 100644 (file)
index 0000000..729162a
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/cpp/assembler.S
@@ -0,0 +1,25 @@
+/* Regression test - in assembly language, # may have some significance
+   other than 'stringize macro argument' and therefore must be preserved
+   in the output, and should not be warned about.  */
+
+/* { dg-do preprocess } */
+
+#define foo() mov r0, #5  /* { dg-bogus "not followed" "spurious warning" } */
+
+entry:
+       foo()
+
+/* Check we don't EOF on an unknown directive.  */
+#unknown directive
+#error a later diagnostic      /* { dg-error "diagnostic" } */
+               
+/*
+   { dg-final { if ![file exists 20000510-1.i] { return }      } }
+   { dg-final { set tmp [grep 20000510-1.i # line]             } }
+   { dg-final { if {[string length $tmp] > 0} \{               } }
+   { dg-final {     pass "20000510-1.S: # preservation"                } }
+   { dg-final { \} else \{                                     } }
+   { dg-final {     fail "20000510-1.S: # preservation"                } }
+   { dg-final { \}                                             } }
+*/
+

diff --git a/gcc/testsuite/gcc.dg/cpp/tr-str.c b/gcc/testsuite/gcc.dg/cpp/tr-str.c
index 3a568ce0eab93cd1f219760137afa4c90679eb8a..bc749ba10351364b5f6c824afd34e49c0cff9c3b 100644 (file)
--- a/gcc/testsuite/gcc.dg/cpp/tr-str.c
+++ b/gcc/testsuite/gcc.dg/cpp/tr-str.c
@@ -1,4 +1,17 @@
 /* Test whether traditional stringify works.  */
-/* { dg-do preprocess } */
+/* { dg-do run } */
 /* { dg-options "-traditional" } */
 #define foo(a, b) c="a"; d="b";
+
+extern void abort ();
+
+int main ()
+{
+  char *c, *d;
+
+  foo (p, q);
+  if (c[0] != 'p' || d[0] != 'q')
+    abort ();
+
+  exit (0);
+}