Blame test-c/m_33_eucjp.c

Packit Service 8bf002
/* m_33_eucjp.c:    Wide character constant encoded in EUC-JP.  */
Packit Service 8bf002
Packit Service 8bf002
#include    "defs.h"
Packit Service 8bf002
#include    <limits.h>
Packit Service 8bf002
#define     BYTES_VAL   (1 << CHAR_BIT)
Packit Service 8bf002
Packit Service 8bf002
main( void)
Packit Service 8bf002
{
Packit Service 8bf002
    char *  ptr;
Packit Service 8bf002
Packit Service 8bf002
    fputs( "started\n", stderr);
Packit Service 8bf002
Packit Service 8bf002
/* 33.1:    L'ch'.  */
Packit Service 8bf002
Packit Service 8bf002
#pragma __setlocale( "eucjp")               /* For MCPP     */
Packit Service 8bf002
#pragma setlocale( "eucjp")                 /* For MCPP on VC   */
Packit Service 8bf002
Packit Service 8bf002
#if     L'»ú' == '\xbb' * BYTES_VAL + '\xfa'
Packit Service 8bf002
    ptr = "Wide character is encoded in EUC-JP.";
Packit Service 8bf002
#elif   L'»ú' == '\xfa' * BYTES_VAL + '\xbb'
Packit Service 8bf002
    ptr = "Wide character is encoded in EUC-JP."
Packit Service 8bf002
    "Inverted order of evaluation.";
Packit Service 8bf002
#else
Packit Service 8bf002
    ptr = "I cannot understand EUC-JP.";
Packit Service 8bf002
#endif
Packit Service 8bf002
Packit Service 8bf002
    assert( strcmp( ptr, "I cannot understand EUC-JP.") != 0);
Packit Service 8bf002
    fputs( "success\n", stderr);
Packit Service 8bf002
    return  0;
Packit Service 8bf002
}
Packit Service 8bf002