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