1! { dg-do compile } 2! 3! PR 47023: C_Sizeof: Rejects valid code 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6 7 use iso_c_binding 8 type t 9 integer(c_int) :: i 10 end type t 11contains 12 subroutine test(a) bind(c) ! { dg-error "is not C interoperable" } 13 class(t) :: a 14 end subroutine 15end 16