From 0891fd8f7f20a1a2834f336a4b44c4d4c7e2d6d1 Mon Sep 17 00:00:00 2001
From: Sa Liu <saliu@gcc.gnu.org>
Date: Thu, 15 May 2008 13:00:08 +0000
Subject: [PATCH] Test int128 when -std=gnu

From-SVN: r135348
---
 .../gfortran.dg/c_kind_int128_test2.f03          | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03

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
-- 
2.30.2