1! { dg-do run } 2! 3! PR fortran/93957 4! 5! Contributed by José Rui Faustino de Sousa 6 7function f_ice(this) result(that) bind(c) 8 use, intrinsic :: iso_c_binding, only: c_int 9 10 implicit none 11 12 integer(kind=c_int), intent(in) :: this(..) 13 integer(kind=c_int) :: that 14 15 that = size(this) 16 return 17end function f_ice 18 19program ice_p 20 use, intrinsic :: iso_c_binding, only: c_int 21 implicit none 22 23 interface 24 function f_ice(this) result(that) bind(c) 25 use, intrinsic :: iso_c_binding, only: c_int 26 integer(kind=c_int), intent(in) :: this(..) 27 integer(kind=c_int) :: that 28 end function f_ice 29 end interface 30 31 integer(kind=c_int), parameter :: n = 10 32 33 integer(kind=c_int) :: intp(n) 34 35 if(size(intp)/=n) stop 1 36 if(f_ice(intp)/=n) stop 2 37end program ice_p 38