2 ! { dg-options "-std=gnu" }
3 ! { dg-require-effective-target fortran_integer_16 }
5 ! Note: int_fast128_t currently not supported.
8 use, intrinsic :: iso_c_binding
9 integer(c_int128_t) :: a
10 integer(c_int_least128_t) :: b
11 ! integer(c_int_fast128_t) :: c
13 if (sizeof (a) /= 16) STOP 1
14 if (sizeof (b) /= 16) STOP 2
15 ! if (sizeof (c) /= 16) STOP 3
16 end program c_kind_int128