Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/torture/pr55633.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* PR fortran/55633 */ /* { dg-do run { target int128 } } */ extern void abort (void); __attribute__((noinline, noclone)) void bar (__int128_t *x) { int c = sizeof (__int128_t) * __CHAR_BIT__; if (c > 127) c = 127; if (*x != c) abort (); } __attribute__((noinline)) void foo (void) { __int128_t m, ma; ma = 0; m = 0; m = ~m; do { if (m == 0 || ma > 126) break; ma = ma + 1; m = ((__uint128_t) m) >> 1; } while (1); bar (&ma); } int main () { foo (); return 0; }