/*	$NetBSD: lex_char.c,v 1.9 2024/02/02 19:07:58 rillig Exp $	*/
# 3 "lex_char.c"

/*
 * Tests for lexical analysis of character constants.
 *
 * C99 6.4.4.4 "Character constants"
 */

/* lint1-extra-flags: -X 351 */

void sink(char);

void
test(void)
{
	/* expect+1: error: empty character constant [73] */
	sink('');

	sink('a');

	sink('\0');

	/* UTF-8 */
	/* expect+2: warning: multi-character character constant [294] */
	/* expect+1: warning: conversion of 'int' to 'char' is out of range, arg #1 [295] */
	sink('ä');

	/* GCC extension */
	sink('\e');

	/* expect+1: warning: dubious escape \y [79] */
	sink('\y');

	/* since C99 */
	sink('\x12');

	/* octal */
	sink('\177');

	/* expect+1: error: empty character constant [73] */
	sink('');

	/* U+0007 alarm/bell */
	sink('\a');

	/* U+0008 backspace */
	sink('\b');

	/* U+0009 horizontal tabulation */
	sink('\t');

	/* U+000A line feed */
	sink('\n');

	/* U+000B vertical tabulation */
	sink('\v');

	/* U+000C form feed */
	sink('\f');

	/* U+000D carriage return */
	sink('\r');

	/* A double quote may be escaped or not, since C90. */
	sink('"');
	sink('\"');

	/* A question mark may be escaped or not, since C90. */
	sink('?');
	sink('\?');

	sink('\\');

	sink('\'');
}

/*
 * The sequence backslash-newline is handled in an early stage of
 * translation (C90 5.1.1.2 item 2, C99 5.1.1.2 item 2, C11 5.1.1.2 item 2),
 * which allows it in character literals as well.  This doesn't typically
 * occur in practice though.
 */
char ch = '\
\
\
\
\
x';