URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gcc.target/] [frv/] [fr450-builtins-3.c] - Rev 516
Compare with Previous | Blame | View Log
/* Test __MQSLLHI. */ /* { dg-options "-mcpu=fr450" } */ /* { dg-do run } */ extern void abort (void); extern void exit (int); int main () { if (__MQSLLHI (0x0001000200030004ULL, 1) != 0x0002000400060008ULL) abort (); if (__MQSLLHI (0xfffffffefffcfff8ULL, 1) != 0xfffefffcfff8fff0ULL) abort (); if (__MQSLLHI (0xfffffffefffcfff8ULL, 12) != 0xf000e000c0008000ULL) abort (); if (__MQSLLHI (0x123456789abcdef0ULL, 12) != 0x40008000c0000000ULL) abort (); if (__MQSLLHI (0x123456789abcdef0ULL, 16) != 0x123456789abcdef0ULL) abort (); exit (0); }