Subversion Repositories openrisc

/* { dg-do preprocess } */
/* { dg-options -pedantic-errors } */
 
#if 'a' != 'a' || '\001' != 1 || '\x12' != 0x12
#error a,1,0x12 /* { dg-bogus "#error" "basic charconst recognition" } */
#endif
 
#if 'a' != L'a'
#error L'a'	/* { dg-bogus "error" "wide charconst recognition 1" } */
#endif
 
#if L'\xfeed' != 0xfeed && L'\xfeed' != (0xfeed - 0x10000)
#error 0xfeed	/* { dg-bogus "error" "wide charconst recognition 2" } */
#endif
 
#if L'\x1234' != 0x1234
#error 0x1234	/* { dg-bogus "error" "wide charconst recognition 3" } */
#endif
 
/* The 'character constant (is )?too long' message is produced by 16-bit targets.  */
#if 'abcd' /* { dg-warning "(multi-character character constant)|(character constant (is )?too long)" "multi-character charconst" } */
#endif
 
#if 'abcdefghi' /* { dg-warning "character constant (is )?too long" "charconst too long" } */
#endif
 
#if '' /* { dg-error "empty character constant" "empty charconst" } */
#endif