diff options
| author | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 13:00:08 +0000 |
|---|---|---|
| committer | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 13:00:08 +0000 |
| commit | 0891fd8f7f20a1a2834f336a4b44c4d4c7e2d6d1 (patch) | |
| tree | 868b2e4c609116c54e30e5162ecc5dd91414b7e4 | |
| parent | 96d5b5284e4a4a3b777c80899f80ae939fbb553e (diff) | |
| download | gcc-0891fd8f7f20a1a2834f336a4b44c4d4c7e2d6d1.zip gcc-0891fd8f7f20a1a2834f336a4b44c4d4c7e2d6d1.tar.gz gcc-0891fd8f7f20a1a2834f336a4b44c4d4c7e2d6d1.tar.bz2 | |
Test int128 when -std=gnu
From-SVN: r135348
| -rw-r--r-- | gcc/testsuite/gfortran.dg/c_kind_int128_test2.f03 | 16 |
1 files changed, 16 insertions, 0 deletions
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 0000000..2f22b72 --- /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 |