rusi/test/cast.c

60 lines
2.5 KiB
C
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#включить "тест.з"
#включить "stdvv.c"
цел главн() {
ПРОВЕРИТЬ(131585, (цел)8590066177);
ПРОВЕРИТЬ(513, (корот)8590066177);
ПРОВЕРИТЬ(1, (символ)8590066177);
ПРОВЕРИТЬ(1, (длин)1);
ПРОВЕРИТЬ(0, (длин)&*(цел *)0);
ПРОВЕРИТЬ(513, ({ цел х=512; *(символ *)&х=1; х; }));
ПРОВЕРИТЬ(5, ({ цел х=5; длин у=(длин)&х; *(цел*)у; }));
(пусто)1;
ПРОВЕРИТЬ(-1, (символ)255);
ПРОВЕРИТЬ(-1, (знак символ)255);
ПРОВЕРИТЬ(255, (беззнак символ)255);
ПРОВЕРИТЬ(-1, (корот)65535);
ПРОВЕРИТЬ(65535, (беззнак корот)65535);
ПРОВЕРИТЬ(-1, (цел)0xffffffff);
ПРОВЕРИТЬ(0xffffffff, (беззнак)0xffffffff);
ПРОВЕРИТЬ(1, -1<1);
ПРОВЕРИТЬ(0, -1<(беззнак)1);
ПРОВЕРИТЬ(254, (символ)127+(символ)127);
ПРОВЕРИТЬ(65534, (корот)32767+(корот)32767);
ПРОВЕРИТЬ(-1, -1>>1);
ПРОВЕРИТЬ(-1, (беззнак длин)-1);
ПРОВЕРИТЬ(2147483647, ((беззнак)-1)>>1);
ПРОВЕРИТЬ(-50, (-100)/2);
ПРОВЕРИТЬ(2147483598, ((беззнак)-100)/2);
ПРОВЕРИТЬ(9223372036854775758, ((беззнак длин)-100)/2);
ПРОВЕРИТЬ(0, ((длин)-1)/(беззнак)100);
ПРОВЕРИТЬ(-2, (-100)%7);
ПРОВЕРИТЬ(2, ((беззнак)-100)%7);
ПРОВЕРИТЬ(6, ((беззнак длин)-100)%9);
ПРОВЕРИТЬ(65535, (цел)(беззнак корот)65535);
ПРОВЕРИТЬ(65535, ({ беззнак корот х = 65535; х; }));
ПРОВЕРИТЬ(65535, ({ беззнак корот х = 65535; (цел)х; }));
ПРОВЕРИТЬ(-1, ({ типдеф корот Т; Т х = 65535; (цел)х; }));
ПРОВЕРИТЬ(65535, ({ типдеф беззнак корот Т; Т х = 65535; (цел)х; }));
ПРОВЕРИТЬ(0, (_Bool)0.0);
ПРОВЕРИТЬ(1, (_Bool)0.1);
ПРОВЕРИТЬ(3, (символ)3.0);
ПРОВЕРИТЬ(1000, (корот)1000.3);
ПРОВЕРИТЬ(3, (цел)3.99);
ПРОВЕРИТЬ(2000000000000000, (длин)2e15);
ПРОВЕРИТЬ(3, (плав)3.5);
ПРОВЕРИТЬ(5, (двойн)(плав)5.5);
ПРОВЕРИТЬ(3, (плав)3);
ПРОВЕРИТЬ(3, (двойн)3);
ПРОВЕРИТЬ(3, (плав)3L);
ПРОВЕРИТЬ(3, (двойн)3L);
printf("OK\n");
возврат 0;
}