gcc/testsuite/gfortran.dg/iso_c_binding_class.f03

   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
  11 contains
  12   subroutine test(a) bind(c)  ! { dg-error "is not C interoperable" }
  13     class(t) :: a
  14   end subroutine
  15 end