blob: bfb05bcc89b2541551193eb9dc57ded479014735 [file] [log] [blame]
! { 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