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