binding_label_tests_5.f03

来自「用于进行gcc测试」· F03 代码 · 共 13 行

! { dg-do compile }
module binding_label_tests_5
  use, intrinsic :: iso_c_binding
  
  interface
     subroutine sub0() bind(c, name='c_sub') ! { dg-error "collides" }
     end subroutine sub0
     
     subroutine sub1() bind(c, name='c_sub') ! { dg-error "collides" }
     end subroutine sub1
  end interface
end module binding_label_tests_5