blob: bfb05bcc89b2541551193eb9dc57ded479014735 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|