binding_label_tests_14.f03

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

! { dg-do run }
subroutine display() bind(c)
  implicit none
end subroutine display

program main
  implicit none
  interface
     subroutine display() bind(c)
     end subroutine display
  end interface
end program main