14 lines
343 B
Perl
14 lines
343 B
Perl
|
/* m_34_eucjp.t: Multi-byte character constant encoded in EUC-JP. */
|
|||
|
|
|
|||
|
|
/* 34.1: */
|
|||
|
|
|
|||
|
|
#pragma __setlocale( "eucjp") /* For MCPP */
|
|||
|
|
#pragma setlocale( "eucjp") /* For MCPP on VC */
|
|||
|
|
|
|||
|
|
#if '<27><>' == '\xbb\xfa'
|
|||
|
|
Multi-byte character is encoded in EUC-JP.
|
|||
|
|
#else
|
|||
|
|
I cannot understand EUC-JP.
|
|||
|
|
#endif
|
|||
|
|
|