gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 ! { dg-require-effective-target fortran_integer_16 }
   4 !
   5 ! Note: int_fast*_t currently not supported.
   6
   7 program 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
  16 end program c_kind_int128