Blame test-c/n_12.c

Packit Service 8bf002
/* n_12.c:  Integer preprocessing number token and type of #if expression.  */
Packit Service 8bf002
Packit Service 8bf002
#include    "defs.h"
Packit Service 8bf002
#include    <limits.h>
Packit Service 8bf002
Packit Service 8bf002
main( void)
Packit Service 8bf002
{
Packit Service 8bf002
    fputs( "started\n", stderr);
Packit Service 8bf002
Packit Service 8bf002
/* 12.1:    */
Packit Service 8bf002
#if     LONG_MAX <= LONG_MIN
Packit Service 8bf002
    fputs( "Bad evaluation of long.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
#if     LONG_MAX <= 1073741823  /* 0x3FFFFFFF   */
Packit Service 8bf002
    fputs( "Bad evaluation of long.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
/* 12.2:    */
Packit Service 8bf002
#if     ULONG_MAX / 2 < LONG_MAX
Packit Service 8bf002
    fputs( "Bad evaluation of unsigned long.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
/* 12.3:    Octal number.   */
Packit Service 8bf002
#if     0177777 != 65535
Packit Service 8bf002
    fputs( "Bad evaluation of octal number.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
/* 12.4:    Hexadecimal number. */
Packit Service 8bf002
#if     0Xffff != 65535 || 0xFfFf != 65535
Packit Service 8bf002
    fputs( "Bad evaluation of hexadecimal number.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
/* 12.5:    Suffix 'L' or 'l'.  */
Packit Service 8bf002
#if     0L != 0 || 0l != 0
Packit Service 8bf002
    fputs( "Bad evaluation of 'L' suffix.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
/* 12.6:    Suffix 'U' or 'u'.  */
Packit Service 8bf002
#if     1U != 1 || 1u != 1
Packit Service 8bf002
    fputs( "Bad evaluation of 'U' suffix.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
/* 12.7:    Negative integer.   */
Packit Service 8bf002
#if     0 <= -1
Packit Service 8bf002
    fputs( "Bad evaluation of negative number.\n", stderr);
Packit Service 8bf002
    exit( 1);
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
    fputs( "success\n", stderr);
Packit Service 8bf002
    return  0;
Packit Service 8bf002
}
Packit Service 8bf002