From: Sa Liu <saliu@gcc.gnu.org>
Date: Thu, 15 May 2008 13:00:08 +0000 (+0000)
Subject: Test int128 when -std=gnu
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0891fd8f7f20a1a2834f336a4b44c4d4c7e2d6d1;p=gcc.git

Test int128 when -std=gnu

From-SVN: r135348
---

diff --git a/gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03 b/gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03
new file mode 100644
index 00000000000..2f22b72d0be
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03
@@ -0,0 +1,16 @@
+! { 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