1! { dg-do compile } 2! { dg-options "-std=f2003" } 3! { dg-require-effective-target fortran_integer_16 } 4! 5 6subroutine c_kind_int128_1 7 use, intrinsic :: iso_c_binding 8 implicit none 9 10 integer(c_int128_t) :: a ! { dg-error "has no IMPLICIT type" } 11 integer(c_int_least128_t) :: b ! { dg-error "has no IMPLICIT type" } 12 integer(c_int_fast128_t) :: c ! { dg-error "has no IMPLICIT type" } 13 14end subroutine c_kind_int128_1 15 16 17subroutine c_kind_int128_2 18 use, intrinsic :: iso_c_binding 19 20 integer(c_int128_t) :: a ! { dg-error "has not been declared or is a variable" } 21 integer(c_int_least128_t) :: b ! { dg-error "has not been declared or is a variable" } 22 integer(c_int_fast128_t) :: c ! { dg-error "has not been declared or is a variable" } 23 24end subroutine c_kind_int128_2 25