1/* Copyright (C) 2001 Free Software Foundation, Inc.  */
2
3/* { dg-do compile } */
4/* { dg-options "-Wtraditional -std=c89" } */
5
6/* This tests various diagnostics with -Wtraditioanl about escape
7   sequences, for both the preprocessor and the compiler.
8
9   Neil Booth, 22 May 2001.  */
10
11#if '\a'		/* { dg-warning "traditional" "traditional bell" } */
12#endif
13#if '\x1a' != 26	/* { dg-warning "traditional" "traditional hex" } */
14 #error bad hex		/* { dg-bogus "bad" "bad hexadecimal evaluation" } */
15#endif
16#if L'\u00a1'		/* { dg-warning "only valid" "\u is unknown in C89" } */
17#endif
18
19void foo ()
20{
21  int c = '\a';		/* { dg-warning "traditional" "traditional bell" } */
22
23  c = '\xa1';		/* { dg-warning "traditional" "traditional hex" } */
24  c = L'\u00a1';	/* { dg-warning "only valid" "\u is unknown in C89" } */
25}
26