Index: gcc/gcc/testsuite/gfortran.dg/c_kind_int128_test1.f03 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/c_kind_int128_test1.f03 b/gcc/gcc/testsuite/gfortran.dg/c_kind_int128_test1.f03 |
index 6be1ac20b64dc07a271f4636fe16bc3241232f63..b1919614b2e20c3d2813f6aef37a6d469244802e 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/c_kind_int128_test1.f03 |
+++ b/gcc/gcc/testsuite/gfortran.dg/c_kind_int128_test1.f03 |
@@ -2,7 +2,6 @@ |
! { dg-options "-std=f2003" } |
! { dg-require-effective-target fortran_integer_16 } |
! |
-! Note: int_fast*_t currently not supported. |
subroutine c_kind_int128_1 |
use, intrinsic :: iso_c_binding |
@@ -10,15 +9,16 @@ subroutine c_kind_int128_1 |
integer(c_int128_t) :: a ! { dg-error "has no IMPLICIT type" } |
integer(c_int_least128_t) :: b ! { dg-error "has no IMPLICIT type" } |
-! integer(c_int_fast128_t) :: c |
- |
+ integer(c_int_fast128_t) :: c ! { dg-error "has no IMPLICIT type" } |
+ |
end subroutine c_kind_int128_1 |
+ |
subroutine c_kind_int128_2 |
use, intrinsic :: iso_c_binding |
integer(c_int128_t) :: a ! { dg-error "has not been declared or is a variable" } |
integer(c_int_least128_t) :: b ! { dg-error "has not been declared or is a variable" } |
-! integer(c_int_fast128_t) :: c |
- |
+ integer(c_int_fast128_t) :: c ! { dg-error "has not been declared or is a variable" } |
+ |
end subroutine c_kind_int128_2 |