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) call abort 
14  if (sizeof (b) /= 16) call abort 
15!  if (sizeof (c) /= 16) call abort 
16end program c_kind_int128
17