1 /* PR fortran/55633 */
2 /* { dg-do run { target int128 } } */
3 
4 extern void abort (void);
5 
6 __attribute__((noinline, noclone)) void
bar(__int128_t * x)7 bar (__int128_t *x)
8 {
9   int c = sizeof (__int128_t) * __CHAR_BIT__;
10   if (c > 127)
11     c = 127;
12   if (*x != c)
13     abort ();
14 }
15 
16 __attribute__((noinline)) void
foo(void)17 foo (void)
18 {
19   __int128_t m, ma;
20   ma = 0;
21   m = 0;
22   m = ~m;
23   do
24     {
25       if (m == 0 || ma > 126)
26 	break;
27       ma = ma + 1;
28       m = ((__uint128_t) m) >> 1;
29     }
30   while (1);
31   bar (&ma);
32 }
33 
34 int
main()35 main ()
36 {
37   foo ();
38   return 0;
39 }
40