2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.dg / cpp / assembler.S
blob7069b7b50ac798da0e8d8c9209e3743029d7a8b8
1 /* Regression test - in assembly language, # may have some significance
2    other than 'stringize macro argument' and therefore must be preserved
3    in the output, and should not be warned about.  */
5 /* { dg-do preprocess } */
6 /* { dg-options "" } */
8 #define foo() mov r0, #5  /* { dg-bogus "not followed" "spurious warning" } */
10 entry:
11         foo()
13 /* Check we don't EOF on an unknown directive.  */
14 #unknown directive
15 #error a later diagnostic       /* { dg-error "diagnostic" } */
16                 
18    { dg-final { if ![file exists 20000510-1.i] { return }       } }
19    { dg-final { set tmp [grep 20000510-1.i # line]              } }
20    { dg-final { if {[string length $tmp] > 0} \{                } }
21    { dg-final {     pass "20000510-1.S: # preservation"         } }
22    { dg-final { \} else \{                                      } }
23    { dg-final {     fail "20000510-1.S: # preservation"         } }
24    { dg-final { \}                                              } }