Subversion Repositories scarts

/* 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 } */

#ifndef FOO
#1                      /* Once caused a bogus unterminated #ifndef.  */
#endif
                
#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 { \}                                              } }
*/