1! { dg-do run } 2! { dg-options "-std=gnu" } 3! { dg-require-effective-target fortran_integer_16 } 4! 5! Note: int_fast128_t currently not supported. 6 7program c_kind_int128 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 12 13 if (sizeof (a) /= 16) STOP 1 14 if (sizeof (b) /= 16) STOP 2 15! if (sizeof (c) /= 16) STOP 3 16end program c_kind_int128 17