Test int128 when -std=gnu

From-SVN: r135348

Test int128 when -std=gnu
From-SVN: r135348
0891fd8f · Sa Liu · 96d5b528 · 0891fd8f
Commit 0891fd8f authored May 15, 2008 by Sa Liu
Hide whitespace changes
Inline Side-by-side

Showing with 16 additions and 0 deletions

gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03
+16 -0

No files found.
--- a/gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03
+++ b/gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03
+! { dg-do run }
+! { dg-options "-std=gnu" }
+! { dg-require-effective-target fortran_integer_16 }
+!
+! Note: int_fast*_t currently not supported.
+
+program c_kind_int128
+  use, intrinsic :: iso_c_binding
+  integer(c_int128_t) :: a  
+  integer(c_int_least128_t) :: b  
+! integer(c_int_fast128_t) :: c
+    
+  if (sizeof (a) /= 16) call abort 
+  if (sizeof (b) /= 16) call abort 
+!  if (sizeof (c) /= 16) call abort 
+end program c_kind_int128