! { dg-do compile } | |
! | |
! PR 47023: C_Sizeof: Rejects valid code | |
! | |
! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
use iso_c_binding | |
type t | |
integer(c_int) :: i | |
end type t | |
contains | |
subroutine test(a) bind(c) ! { dg-error "is not C interoperable" } | |
class(t) :: a | |
end subroutine | |
end |