11.4Srillig/*	$NetBSD: expr_fold_strict_bool.c,v 1.4 2025/04/12 15:49:49 rillig Exp $	*/
21.1Srillig# 3 "expr_fold_strict_bool.c"
31.1Srillig
41.1Srillig/*
51.1Srillig * Test constant folding in strict bool mode.
61.1Srillig *
71.1Srillig * In this mode, _Bool is not an unsigned integer type.  In fact, it is not
81.1Srillig * an arithmetic type at all.
91.1Srillig */
101.1Srillig
111.1Srillig/* lint1-extra-flags: -T */
121.1Srillig
131.1Srilligtypedef long long int64_t;
141.1Srilligtypedef unsigned long long uint64_t;
151.1Srillig
161.1Srilligstruct fold_64_bit {
171.1Srillig
181.1Srillig	_Bool lt_signed_small_ok: -3LL < 1LL ? 1 : -1;
191.4Srillig	/* expect+1: error: invalid bit-field size: 255 [36] */
201.1Srillig	_Bool lt_signed_small_bad: 1LL < -3LL ? 1 : -1;
211.1Srillig
221.1Srillig	_Bool lt_signed_big_ok: (int64_t)(1ULL << 63) < 1LL ? 1 : -1;
231.4Srillig	/* expect+1: error: invalid bit-field size: 255 [36] */
241.1Srillig	_Bool lt_signed_big_bad: 1LL < (int64_t)(1ULL << 63) ? 1 : -1;
251.1Srillig
261.1Srillig	_Bool lt_unsigned_small_ok: 1ULL < 3ULL ? 1 : -1;
271.4Srillig	/* expect+1: error: invalid bit-field size: 255 [36] */
281.1Srillig	_Bool lt_unsigned_small_bad: 3ULL < 1ULL ? 1 : -1;
291.1Srillig
301.2Srillig	/*
311.2Srillig	 * Before tree.c 1.345 from 2021-08-22, lint wrongly assumed that the
321.2Srillig	 * result of all binary operators were the common arithmetic type,
331.2Srillig	 * but that was wrong for the comparison operators.  The expression
341.2Srillig	 * '1ULL < 2ULL' does not have type 'unsigned long long' but 'int' in
351.2Srillig	 * default mode, or '_Bool' in strict bool mode.
361.2Srillig	 */
371.2Srillig	_Bool lt_unsigned_big_ok: 1ULL < 1ULL << 63 ? 1 : -1;
381.4Srillig	/* expect+1: error: invalid bit-field size: 255 [36] */
391.1Srillig	_Bool lt_unsigned_big_bad: 1ULL << 63 < 1ULL ? 1 : -1;
401.1Srillig};
41